Спрограммой паскаль-одномерный массив дан массив. определить количество неотрицательных элементов

175

189

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

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

демлан

Информатика

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

Uses crt; const n = 13; var a: array[1..n] of integer; i,k: integer; begin clrscr; randomize; write('исходный массив: '); k: =0; for i: = 1 to n do begin a[i]: =random(2*n+1)-n; write(' ',a[i]); if a[i]> =0 then k: =k+1 end; writeln; writeln('количество неотрицательных элементов: ',k); readln end.

Ksenia20066kislova

Информатика

4,7(54 оценок)

Program z1; var i,n: integer; a: array [1..100] of integer; begin readln (n); for i: = 1 to 4 do begin readln (a[i] ); end; for i : = 1 to 4 do begin if a [i] > n then writeln (a [i]); end; readln; end.