Var x:integer;
begin
readln(x);
for var i:=2 to x do
if (x mod i)=0 then begin
writeln('delitel: ',i);
exit;
end;
<span>end.</span>
Uses Crt;
Const
N = 10;
Var
X:array[1..N] of integer;
i,k:integer;
Begin
ClrScr;
Write('Введите массив целых чисел X(',N,'): ');
For i:= 1 to N do
Begin
Read(X[i]);
if X[i] > 0 then k:=k+1
End;
WriteLn('Количество положительных элементов X(',N,'): ',k);
ReadLn
End.
Пример работы программы:
Введите массив целых чисел X(10): 1 2 3 -4 -5 -6 7 8 9 0
Количество положительных элементов X(10): 6