Рассмотрите решение var a,n,k: integer; begin readln(a); if a> =0 then k: =k+1 else n: =n+1; writeln(k); wtiteln(n); end. как нужно изменить программу, чтобы вводилось 50 чисел? рассмотрите решение : var a,i,n,k: integer; begin readln(a); for i: =1 to 50 do {цикл меняется от 1 до 50} begin {начало цикла} if a> =0 then k: =k+1 else n: =n+1; end; {конец цикла} writeln(k); wtiteln(n); end. сформулируйте условие :
Добавить в код цикл