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

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

Программы должны выводиться в Строчку.(write)

А что со вторым?

Сейчас

Вот)

vari,x:integer;m:array[10..20] of integer;beginrandomize;for i:=10 to 20 do m[i]:=random(11)+10;for i:=10 to 20 do write(m[i],' ');writeln;x:=m[10];m[10]:=m[20];m[20]:=x;for i:=10 to 20 do write(m[i],' ');writeln;end.2)varmax,min,i,x:integer;m:array[10..20] of integer;beginmin:=10;max:=10;randomize;for i:=10 to 20 do m[i]:=random(100)+1;for i:=10 to 20 do write(m[i],' ');writeln;for i:=10 to 20 do begin if m[i]<m[min] then min:=i;if m[i]>m[max] then max:=i;end;x:=m[min];m[min]:=m[max];m[max]:=x;for i:=10 to 20 do write(m[i],' ');writeln;end.