Program qq; const N=5;
var a:array[1..N] of integer;
i,iMax:integer;
begin
writeln('Исходный массив:');
for i:=1 to N do begin
a[i]:=random(100)+50;
write(a[i]:4);
end;
iMax:=1;{считаем,что певый-минимальный}
for i:=2 to N do {проверяем все остальные}
if a[1]>a[iMax] then {новый минимальный}
iMax:=1; {запомнить i}
writeln; {перейти на новую строку}
writeln('Минимальный элемент a[',iMax,']=', a[iMax]);
end.
Исправить чтобы получилось минимальный массив
var a:array[1..N] of integer;
i,iMax:integer;
begin
writeln('Исходный массив:');
for i:=1 to N do begin
a[i]:=random(100)+50;
write(a[i]:4);
end;
iMax:=1;{считаем,что певый-минимальный}
for i:=2 to N do {проверяем все остальные}
if a[1]>a[iMax] then {новый минимальный}
iMax:=1; {запомнить i}
writeln; {перейти на новую строку}
writeln('Минимальный элемент a[',iMax,']=', a[iMax]);
end.
Исправить чтобы получилось минимальный массив
More Questions From This User See All