Question

Дан массив из N элементов. Определить сумму тех элементов, которые кратны 5

Answer 1

Сделал через динамический массив тоесть размер вводится с клавиатуры
program Project2; 
{$APPTYPE CONSOLE}
var a:array of integer;    i,n,s:Integer;
begin 
 Randomize; 
s:=0; 
 Readln(n);//вводим размер массива с клавиатуры  
 SetLength(a,n); //задаем размер массива 
for i:=0 to Length(a) do 
 a[i]:=Random(100); //геним массив
 for i:=0 to Length(a) do 
  if a[i] mod 5 =0 then //ищем сумму
   s:=s+a[i]; 
 Writeln('Summ: ',s); //выводим сумму 
 readln;
end.