Помогите, пожалуйста!!
Только пишите по делу, пожалуйста!!
Написать код программы в среде Паскаль, которая ищет максимальный и минимальный элемент в массиве и меняет их местами. Исходный массив из 10ти целых чисел заполняется случайным образом из диапазона [10,40].Оба массива: исходный и после замены max и min выводятся в строку через пробел.
Только пишите по делу, пожалуйста!!
Написать код программы в среде Паскаль, которая ищет максимальный и минимальный элемент в массиве и меняет их местами. Исходный массив из 10ти целых чисел заполняется случайным образом из диапазона [10,40].Оба массива: исходный и после замены max и min выводятся в строку через пробел.
Answers & Comments
Verified answer
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.