Question

дан целочисленный массив из n элементов A(n) в пределах от -20 до 20.Найти сумму тех чисел,которые кратны 5
напишите пожалуйста программу на паскале и блок схему!)

Answer 1

ПаскальАВС.НЕТ

var
  a:array of integer;
  i,n,s:integer;
begin
writeln('Размерность массива?');
readln(n);
setlength(a,n+1);
for i:=1 to n do
  begin
  a[i]:=random(20,-20);
  write(a[i],' ');
  if a[i] mod 5=0 then s:=s+a[i];
  end;
writeln;
writeln('Ответ: ',s);  
end.