Заполнить массив из 25 элементов случайными числами в интервале (20, 100) и вычислить сумму всех элементов массива А, которые делятся на 3

Предыдущий
вопрос Следующий
вопрос

uses crt;

const n=25;

type 

  mas = array[1..n] of integer;

var a : mas;

  i,s:integer;

begin

 ClrScr; 

 for i:=1 to n do a[i]:=random(80)+20;

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

 writeln;

 for i:=1 to n do

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

 writeln('Сумма элементов делящихся на 3 = ',s);

 readln;

end.