Question

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

Answer 1

const n=10;

var a:array [1..n] of integer;

i,max,min,imax,imin:integer;

begin

min:=100;

max:=1;

write('  Исходный массив: ');

for i:=1 to n do

begin

a[i]:=random(100)+1;

if a[i] > max then

begin

max:=a[i];

imax:=i

end;

if a[i] < min then  

begin

min:=a[i];

imin:=i

end;

write(a[i]:3,' ')

end;

writeln;

a[imax]:=min;

a[imin]:=max;

write('Полученный массив: ');

for i:=1 to n do write(a[i]:3,' ')

end.