Написать программу определяющая количество отрицательных двузначных четырём кратных 8 элементов массива

var

 i, s : integer;

begin

s:= 0;

for i:=10 to 99 do

if i mod 8 = 0 then

  begin

    s:= s + 1;

    writeln(i);

  end;

writeln('текст = ', s);

writeln;

end.

Объяснение:

Это код