Tin học viết chương trình nhập mảng

[hà bee]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

viết chương trình nhập mảng A gồm n phần tử (n<=1000)
hãy cho biết có bao nhiêu số chẳn và số lẻ

 

[Kim Tại Hưởng_V]

type mang=array[1..50,1..50]of integer;
var a:mang; i,n,k,c,l:integer;
procedure nhap(var a:mang);
begin
writeln('Nhap n');
readln(n);
for i:=1 to n do
begin
for k:=1 to n do
begin
writeln('Nhap gia tri hang ',i,' cot ',k);
readln(a[i,k]);
end;
end;end;
procedure kiemtra(var a:mang);
begin
c:=0;
l:=0;
for i:=1 to n do
begin
for k:=1 to n do
if a[i,k] mod 2 =0 then c:=c+1
else l:=l+1;
end;
end;
begin
nhap(a);
kiemtra(a);
writeln('Co ',c,' so chan');
writeln('Co ',l,' so le');
readln;
end.

 

[ĐứcNhật!]

Program Mang;
Uses crt;
Var n,i: longint;
       A: array[1..1000] of integer;
Begin
clrscr;
Write('Nhap n: '); readln(n);
For i:=1 to n do
Begin
Write('A[',i,'] = '); readln(A[i])
End;
If A[i] mod 2 = 0 then
Begin
Write('Cac so chan: ');
 Write(A[i] : 5);
End;
Else
Begin
Write('Cac so le: ');
Write(A[i]:5);
End;
Readln
End.

 

[TTree]

var a:array[1..1000] of longint;
n,i,c,l:longint;
begin
readln(n); c:=0; l:=0;
for i:=1 to n do
begin
readln(a(i));
if odd(a(i)) then inc(l) else inc(c);
end;
writeln(c,' so chan, ',l,' so le');
readln;
end.
dấu ngoặc vuông chỗ a(i) bị lỗi bạn tự sửa nhé =))