Дан одномерный массив рамерностью n ( целочисленный).найти сумму положительных ,произведение отрицательных ,количество нулевых элементов. предусмотреть вариант,когда нет отриц.элементов паскаль

154

441

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

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

HsbHbaj

Информатика

4,5(59 оценок)

// program n1; function pr(a: longint): boolean; var i: longint; begin if a< 2 then pr: =false else begin pr: =true; for i: =2 to round(sqrt(a)) do if a mod i=0 then pr: =false; end; end; const n=15; var a: array[1..n] of integer; i,k: integer; begin randomize; k: =0; for i: =1 to n do a[i]: =random(100); writeln('массив: '); for i: =1 to n do write(a[i],' '); writeln; for i: =1 to n do if pr(a[i]) then k: =k+1; writeln('кол-во простых чисел: ',k); end.