Question

Дан ряд из 8 чисел. Найти количество отрицательных чисел; чисел кратных 5.
Pascal

Answer 1

Ответ:

var a:array[1..8] of integer = (2,-5,3,8,-1,12,-3,9);

   i,countera,counterb:integer;

begin

   for i:=1 to length(a) do begin

       if a[i]<0 then countera:=countera+1;

       if a[i] mod 5 = 0 then counterb:=counterb+1;

   end;

   writeln('Количество чисел меньше 0: ', countera);

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

end.