Program n1;
var F: array[1..14] of integer;
i,k: integer;
begin
randomize;
write('массив: ');
for i:=1 to 14 do begin
F[i]:=random(23)-11;
write(F[i],' ');
end;
writeln;
k:=0;
for i:=1 to 14 do if F[i] mod 5=0 then k:=k+1;
write('кол-во эл. крат. 5: ',k);
end.
--------------------------------------Вроде так--------------------------------------
Не знаю как с помощью таблицы,но у меня получился ответ ДХБА
После последнего цикла for пишем
<span>for i:=1 to 10 do
begin
if a[i] mod 2 = 0 then
s:=s+a[i];
end;</span>