Составьте программу,которая заполняет массив a[1..10] случайными числами в диапазоне от 0...

Question

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

Answer 1

Var mass:array[1..10] of integer;       
 g,s,i,max:integer;
begin
randomize;
writeln('первоначальный массив');
for i:=1 to 10 do
begin
s:=s+1;
mass[s]:=random(21);
if maxwriteln(mass[s]);
end;
writeln('конечный массив');
g:=mass[1];
for i:=1 to 10 do begin
if mass[i]=max then mass[i]:=g;
mass[1]:=max;
writeln(mass[i]);
end;
end.

Comments

Можеш ещё помоч

---

пожалусто

---

создавай вопрос, если смогу - помогу.

---

Не получилось