Массив p размером 20 заполняется случайными целыми числами из интервала (-100,120). найти количество неотрицательных элементов массива.

112

164

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

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

sasha21974

Информатика

4,6(83 оценок)

Program n1; var a: array[1..20] of integer; var k,i: integer; begin k: =0; write('массив: '); for i: =1 to 20 do begin a[i]: =random(221)-100; write(a[i],' '); end; writeln; for i: =1 to 20 do if a[i]> =0 then k: =k+1; write('кол-во неотриц. элементов: ',k); end.