Хелп информатика 10 класс Заполнить массив случайными числами и переставить местами...

Question

Хелп информатика 10 класс Заполнить массив случайными числами и переставить местами максимальный и минимальный элемент массива

Comments

Какой язык?

---

паскаль абц

Answer 1

Ответ:

const N=10;

var A: array[1..N] of integer;

i,max,min: integer;

begin

randomize();

max:=1;

min:=1;

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

for i:=1 to N do

 begin

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

 write(a[i],' ');

 if (a[i]>a[max]) then max:=i;

 if (a[i]

 end;

i:=a[min];

a[min]:=a[max];

a[max]:=i;

writeln();

writeln('Результат: ');

for i:=1 to N do write(a[i],' ');

end.

Comments

Спасибо огромное, спас!