Дан массив из 20 элементов вводиться с клавиатуры , подсчитать количество отрицательных элементов

Женьочки Женьочки    1   06.06.2019 20:50    3

Ответы
Aly6000 Aly6000  01.10.2020 21:00
Var
  i,n:integer;
  a:array[1..20]of integer;
begin
for i:=1 to 20 do
  begin
  readln(a[i]);
  if a[i]<0 then n:=n+1
  end;
writeln('ответ: ',n)
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика