Найти количество положительных элементов в массиве а[1..10]

Руфлер Руфлер    3   05.06.2019 11:10    0

Ответы
ДарьяГусева13 ДарьяГусева13  05.07.2020 22:59
Program z1;
const n=10;
var A: array [1..n] of integer;
i,k:integer;
begin randomize;
For i:= 1 to n do begin
A[i]:=random (21)-10;
write (A[i]:4);end;
k:=0;
For i:=1 to n do
begin
If A[i]>0 then k:=k+1;end;
Writeln;
writeln('k=',k);end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика