Регистрация
KamilyaG
08.05.2021 20:37
Информатика
Есть ответ 👍

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

164
441
Посмотреть ответы 2

Ответы на вопрос:

vichka20042018
vichka20042018
4,5(54 оценок)
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.
Женя3725
Женя3725
4,4(91 оценок)

var a,b: integer;

begin

readln (a,b);

if a< b then write (b-1-a) else write(0)

end.

Популярно: Информатика