Регистрация
Maksikar
27.03.2020 17:08
Информатика
Есть ответ 👍

Түсіндірме элементі дегеніміз не

133
477
Посмотреть ответы 1

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

polufabrikat17
polufabrikat17
4,8(67 оценок)
Var i,k,n: integer;     a,b: array[1..100] of integer; begin   readln(n);   for i: =1 to n do   begin   readln(a[i]);   if a[i]< 0 then   begin     b[k]: =a[i];     k: =k+1;   end;   end;   write('элементы: ');   for i: =1 to k-1 do write(b[i],' ');   writeln;   writeln('колличество отрицательных=',k-1); end.

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