Question

- Viết chương trình nhập 1 mảng số nguyên gồm n phần tử - In ra tất cả phần tử của mảng vừa nhập - In ra các phần tử tròn chục. - Đếm xem có tất cả bao nhiêu phần tử tròn chục. In ra tổng số phần tử tròn chục.

Answer 1

uses crt;

var a:array[1..100]of integer;

i,n,dem,t:integer;

begin

clrscr;

readln(n);

for i:=1 to n do 

begin

readln(a[i]);

end;

for i:=1 to n do 

  write(a[i]:4);

readln;

dem:=0;

t:=0;

for i:=1 to n do 

if a[i] mod 10=0 then 

begin

write(a[i]:4);

inc(dem);

t:=t+a[i];

end;

writeln;

writeln(dem);

writeln(t);

readln;

end.