Лови первую задачку! Остальные не знаю:с
var a: array[1..10] of integer; i,min: integer;
begin
for i:= 1 to 10 do
writeln( 'a[',i,']=');
readln (a[i]);
end;
min:= 32687;
if a[i]< min then min:= a[i];
writeln('min=',min);
end.
Объяснение:
Лови первую задачку! Остальные не знаю:с
var a: array[1..10] of integer; i,min: integer;
begin
for i:= 1 to 10 do
begin
writeln( 'a[',i,']=');
readln (a[i]);
end;
min:= 32687;
for i:= 1 to 10 do
if a[i]< min then min:= a[i];
writeln('min=',min);
end.
Объяснение: