3) Заполнить массив случайными числами. Найти ** сколько максимальный элемент массива...

Question

3) Заполнить массив случайными числами. Найти на сколько максимальный элемент массива больше минимального. Очень надо. Пожалуйста!!!!

Comments

Можно каждое действие с новой строки

Answer 1

PascalABC

var  mas: array[-1000..1000] of integer;  i, min, max, n, razn: integer;begin
  //ввод количества элементов массива  readln(n);  //ввод массива и его вывод на экран  randomize;  for i := 1 to n do   begin    mas[i] := 500 - random(1000) - 1;    write(mas[i]:5);    if (i mod 10 = 0) then writeln;  end;  //поиск минимума и максимума  min := mas[1];  max := mas[1];  for i := 2 to n do   begin    if (mas[i] < min) then min := mas[i];    if (mas[i] > max) then max := mas[i];  end;  //нахождение разности  razn := max - min;  writeln;  writeln('Разность = ',razn);end.

Comments

if (i mod 10 = 0) then writeln;

---

end;

---

min := mas[1]; max := mas[1];

---

for i := 2 to n do begin

---

if (mas[i] < min) then min := mas[i];

---

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

---

end;

---

razn := max - min; writeln;

---

writeln('Разность = ',razn);

---

end.

Answer 2

Program zadacha;vari,min,max,x: integer;a: array [1..100] of integer;
beginfor i:=1 to 100 do begin a[i]:=random(200); writeln(a[i]); end;min:=a[i];max:=a[i];for i:=1 to 100 do beginif a[i]max then max:=a[i];end;x:=max-min;writeln('min=', min);writeln('max=', max);writeln('max-min=',x);end.

---