Question

Lập trình giải bài toán sau Nhập 1 mảng gồm N số nguyên từ bàn phím 1.In mảng vừa nhập,mỗi mảng cách nhau 5 vị trí 2.In ra tất cả các số dương trong mảng 3.Tính tổng các số chia hết cho 3 4.Sắp xếp mảng theo chiều giảm dần

Answer 1

uses crt;

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

i,n,t,j,tam:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

for i:=1 to n do write(a[i]:5);

writeln;

writeln('Cac so duong la: ');

for i:=1 to n do if (a[i]>0) then write(a[i]:4);

writeln;

t:=0;

for i:=1 to n do 

  if a[i] mod 3=0 then t:=t+a[i];

writeln(t);

for i:=1 to n-1 do 

  for j:=i+1 to n do

if a[i]<a[j] then

begin

tam:=a[i];

a[i]:=a[j];

a[j]:=tam;

end;

for i:=1 to n  do write(a[i]:4);

readln;

end.