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

Ответы 7

  • if (mas[i] > max) then max := mas[i];
    • Автор:

      cricket84
    • 6 лет назад
    • 0
  • end;
  • razn := max - min; writeln;
    • Автор:

      nikivbed
    • 6 лет назад
    • 0
  • writeln('Разность = ',razn);
    • Автор:

      litzy8cjg
    • 6 лет назад
    • 0
  • end.
    • Автор:

      lily8s2a
    • 6 лет назад
    • 0
  • PascalABCvar  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.
    • Автор:

      daciano
    • 6 лет назад
    • 0
  • 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.
    answer img
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years