Var A,i,k:integer;
Begin
Write('Введите 10 целых чисел: ');
k:=0;
For i:= 1 to 10 do
Begin
Read(A);
if A>0 then k:=k+1
End;
Write('Количество положительных: ',k);
End.
Поиск: Путем нажатия комбинации клавиш ctrl + f <em>(встань в любую строку и нажми)
</em>Замена: Правка - заменить (на панели в txt редакторе, вверху где сохранить, файл, открыть и т.п.)
<span>Память является инструментом хранения информации</span>
Var i,k : integer;
a: array[1..10] of integer;
Begin
for i := 1 to 10 do begin
a[i] := random(7) + 3;
if a[i] = 4 then k:= k + 1;
end;
writeln(k);
End.