Составьте программу, которая заполняет массив а [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.

Три ошибки, одна грубая.
Сравни своё решение и моё. (для 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]