Question

Viết chương trình nhập vào mảng A gồm có 50 phần tử kiểu nguyên a. Đếm mång có bao nhiêu số chẵn b. Tìm phần tử âm bé nhất trong mảng

PLEASE HELPPPP MEEEEE!!!!

Answer 1

uses crt;

var a,b:array[1..50]of integer;

i,n,dem,dem1,min:integer;

begin

clrscr;

n:=50;

for i:=1 to n do

  begin

write('A[',i,']='); readln(a[i]);

end;

dem:=0;

for i:=1 to n do 

 if a[i] mod 2=0 then inc(dem);

dem1:=0;

for i:=1 to n do 

 if a[i]<0 then 

begin

inc(dem1);

b[dem1]:=a[i];

end;

min:=b[1];

for i:=1 to dem1 do 

  if min>b[i] then min:=b[i];

writeln('Phan tu am be nhat trong mang la: ',min);

readln;

end.