Cho ví dụ về khai báo 1 mảng một chiều gồm 500 phần tử mỗi phần tử có kiểu dữ liệu là số thực
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Những câu hỏi liên quan
NL
Nguyễn Lê Phước Thịnh
CTVHS
4 tháng 5 2021
uses crt;
var b:array[1..25]of integer;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('B[',i,']='); readln(b[i]);
end;
readln;
end.
NL
Nguyễn Lê Phước Thịnh
CTVHS
7 tháng 5 2021
Câu 1:
a) var a:array[1..50]of real;
b) a[5]:=8;
c) for i:=1 to 50 do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to 50 do
write(a[i]:4);
NL
Nguyễn Lê Phước Thịnh
CTVHS
7 tháng 5 2021
Câu 2:
uses crt;
var s,i:integer;
begin
clrscr;
s:=0;
for i:=1 to 10 do
s:=s+i;
writeln(s);
readln;
end.
NL
Nguyễn Lê Phước Thịnh
CTVHS
7 tháng 6 2020
a: var diem:array[1..200]of real;
b) var x:array[1..200]of integer;
NL
Nguyễn Lê Phước Thịnh
CTVHS
5 tháng 3 2022
var a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
readln;
end.
NL
Nguyễn Lê Phước Thịnh
CTVHS
24 tháng 1 2021
uses crt;
var a:array[1..20]of integer;
i,n,t,dem:integer;
begin
clrscr;
for i:=1 to 20 do
begin
repeat
write('A[',i,']='); readln(a[i]);
until a[i]>0;
end;
t:=0;
for i:=1 to 20 do
t:=t+a[i];
writeln('Tong cac so trong mang la: ',t);
dem:=0;
for i:=1 to 20 do
if a[i] mod 2=0 then inc(dem);
writeln('Trong mang co ',dem,' so chan');
readln;
end.
var a:array[1..500]of real;