Question

Составьте программу, которая заполняет массив а [1..10] случайными целыми числами в диапазоне от 1 до 100, затем меняет местами максимальный и минимальный элемнет. Выведите на экран исходный и полученный массив. Язык Pascal

program prim;
var a: array [1..10] of integer;
i, z, max, min: integer;
begin
for i:=1 to 10 do
a[i]:=Random(101);
writeln (' исходный массив:');
for i:=1 to 10 do
write (a[i], ' ');
writeln;
max:= a[1];
for i:=2 to 10 do
if a[i]>max then
begin
max:= a[i];
end;
writeln ('максимальный элемент=', max);
min:= a[1];
for i:=2 to 10 do
if a[i] begin
min:= a[i];
end;
writeln ('минимальный элемент=', min);
writeln;
z:=a[min];
a[min]:=a[max];
a[max]:=z;
writeln (' полученный массив');
for i:=1 to 10 do
write (a[i], ' ');
writeln;
end.

Answer 1

Три ошибки, одна грубая.
Сравни своё решение и моё. (для Pascal ABC Net)

program prim; var a: array [1..10] of integer; i, z, max, min,nommax,nommin: integer; begin for i:=1 to 10 do a[i]:=Random(101); writeln (' исходный массив:'); for i:=1 to 10 do write (a[i], ' '); writeln; max:= a[1]; for i:=2 to 10 do if a[i]>max then begin max:= a[i];nommax:=i; end; writeln ('максимальный элемент=', max); min:= a[1]; for i:=2 to 10 do if a[i]<min then begin min:= a[i];nommin:=i; end; writeln ('минимальный элемент=', min); z:=a[nommin]; a[nommin]:=a[nommax]; a[nommax]:=z; writeln (' полученный массив'); for i:=1 to 10 do write (a[i], ' '); writeln; end.