Найти кол-во отрицательных чисел этого массива - вопрос №5417354151 от nastja2011i 30.06.2020 22:18

Question

Информатика: Найти кол-во отрицательных чисел этого массива const n=15; var a: array[1..n] of integer; i,k: integer; begin randomize; k: = ; for i: =1 to n do a[i]: = random(51)-25; for i: =1 to n do write(a[i]: 4); writeln; for i: =1 to n do if a[i] then k: =; writeln( кол-во отрицательных: , ); end.

nastja2011i · Answer

for i:=1 to n dobegin   if a[i] 0 then    begin      k=k+1;   end;end;writeln( кол-во отрицательных: , k);...