Question

Помогите решить даю 30 балов! ​

Answer 1

Program v1;

var a:array[0..30]of integer;            

i,n,kol:integer;

begin

 kol:=0;

write('Введите размерность матрицы: '); readln(n);                

randomize;

for i:=1 to n do a[i]:=random(41)-12;                            

write('Значение матрицы: ');                                      

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

for i:=1 to n do if (a[i] mod 5=0) and (a[i] mod 4<>0) then kol:=kol+1;

writeln('Количество цифр кратных 5, но не кратных 4 равно:  ',kol);

 end.