const
n = 30;
var
a: array [1..n] of integer;
i, mini: integer;
begin
for i := 1 to n do
begin
a[i] := random(30);
write(a[i], ' ');
end;
writeln;
mini := 1;
for i := 1 to n do
if a[i] < a[mini] then
mini := i;
writeln('A[', mini, ']=', a[mini]);
end.
Алг
нач
влево
вниз
нц пока снизу не свободно
влево
вниз
кц
кон
эту программу надо написать по правилам в Кумире
Random(10)+1;
random(11)-5;
random(11)+10;
random(101)-35;