найти количество положительных и кратные 7 элементов массива. только простым способом. Паскаль

[D1SK]

y1,...,y35 (-30,...45). найти количество положительных и кратные 7 элементов массива. только простым способом.

[Leshii]

Как-то так мб.

Program M;
Uses crt;
const n=35;
var y: array [1..n] of integer;
    i: integer;
    K: integer;
begin
clrscr;
randomize;
for i:=1 to n do begin
    y[i]:=random(76)-30;
end;
K:=0;
for i:=1 to n do begin
 if (y[i]>0) and (y[i] mod 7=0) then
    K:=K+1;
end;
writeln('Vsego: ',K,' elementov/a kratnux 7 i bolshe nyl9');
writeln('Isxodnui massiv');
for i:=1 to n do begin
    write(y[i],' ');
end;
readln;
end.