Дан массив из 20 элементов вводиться с клавиатуры , подсчитать количество отрицательных элементов
Дан массив из 20 элементов вводиться с клавиатуры , подсчитать количество отрицательных элементов
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы