program bar;
uses Crt;
const
nn = 100;{ максимальный размер массива }
var
i, j, n: integer;
a: array[1..nn] of integer;
begin
randomize;
write('n = ');
readln(n);
for i := 1 to n do
begin
a[i] := random(199) - 99;
write(a[i], ' ')
end;
writeln;
j := 1;
for i := 2 to n do
if a[i] < a[j] then
j := i;
writeln('N min = ', j);
ReadKey
end.
Program wer;
var k, i, n: integer;
begin
writeln ('vvedi natur chislo');
readln (n);
if n>=1 then
begin
for i:=1 to n do
if n/i=n div i then k:=k+1;
writeln ('kol-vo delitelej=', k);
end else writeln ('eto chislo ne natur');
readln;
end.
Номер 1.
А-3
Б-2
С-1
Номер 2:тут неправильно записано условие.
Номер 3:
Чувствовать, слышать, видеть.
................................................................