Cho mảng số nguyên A: a)Hiển thị tất các phần tử của mảng ra màn hình bTìm phần tử min của mảng c)Đếm và in ra các số lẻ d)Đếm và in ra các số chẵn
2 câu trả lời
program timsochan;
uses crt;
var i,n, dem : integer; min, max : real;
a : array [1..100] of real;
Begin clrscr;
dem1 :=0; dem2 :=0;
Writeln('Nhap cac phan tu n :'); readln(n);
For i:=1 to n do
Begin
Writeln('Nhap a[',i,'] = '); readln(a[i]);
end;
min := a[1];
For i :=1 to n do
If a[i] < min then min := a[i];
Writeln('Phan tu nho nhat la :, min);
For i :=1 to n do
If a[i] mod 2 = 0 then dem1 :=dem1+1;
For i :=1 to n do
If a[i] mod 2 = 1 then dem2:=dem2+1;
writeln('Dem so le ', dem2, 'dem so chan', dem 1);
readln
end.
uses crt;
var a: array[1..1000] of integer;
n,i,min,csl,csc:integer;
Begin
clrscr;
write('Nhap so phan tu cua mang: '); readln(n);
for i:=1 to n do
begin
write('a[',i,']'); readln(a[i]);
end;
for i:=1 to n do write(a[i],' ');
writeln;
min:=a[1];
for i:=1 to n do
if a[i]< a[1] then min:=a[i];
Write('Phan tu min cua mang: ',min);
writeln;
csl:=0;
for i:=1 to n do
if a[i] mod 2<>0 then
csl:=csl+1;
write(csl,' so le trong mang la: ');
for i:=1 to n do
if a[i] mod 2<>0 then
write(a[i],' ');
writeln;
csc:=0;
for i:=1 to n do
if a[i] mod 2=0 then
csc:=csc+1;
write(csc,' so chan trong mang la: ');
for i:=1 to n do
if a[i] mod 2=0 then
write(a[i],' ');
readln;
end.