Question

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

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.

Answer 2

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

Answer 3

end;

Answer 4

razn := max - min; writeln;

Answer 5

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

Answer 6

end.

Answer 7

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]<min then min:=a[i];if a[i]>max then max:=a[i];end;x:=max-min;writeln('min=', min);writeln('max=', max);writeln('max-min=',x);end.