Question

Помогите, пожалуйста!!
Только пишите по делу, пожалуйста!!
Написать код программы в среде Паскаль, которая ищет максимальный и минимальный элемент в массиве и меняет их местами. Исходный массив из 10ти целых чисел заполняется случайным образом из диапазона [10,40].Оба массива: исходный и после замены max и min выводятся в строку через пробел.

Answer 1

program v1;

Var a:array [1..10] of integer;

    i,j,j1,min,n,max,q:integer;

begin

 randomize;

for i:=1 to 10 do a[i]:=random(31)+10;

Writeln (' Znachenija matracy ');

for i:=1 to 10 do write (a[i]:3); writeln;

Max:=a[1];

for i:=1 to 10 do

 if a[i]>=max then begin

                   max:=a[i];

                   j:=i;

                   end;

min:=a[1];

for i:=1 to 10 do

 if a[i]<=min then begin

                   min:=a[i];

                   j1:=i;

                   end;

                 q:=a[j1];

                a[j1]:=a[j];

                a[j]:=q;

For i:=1 to 10 do write (a[i]:3); writeln;

Writeln (' Maxim element = ',max);

writeln (' Minim element = ',min);

end.