заполнить одномерный массив случайными числами из отрезка [0,100], состоящих из 10 элементов. Найдите размах между наибольшим и наименьшим значением

+ 0 -

Ученик166

17 мая 2014 г., 8:48:47 (9 лет назад)

Program krab52;
uses crt;
const
  n=10;
var
  a:array [1..n] of integer;
  i,max,min:integer;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  writeln();
  randomize;
  {заполняем массив}
  for i:=1 to n do
    begin
      a[i]:=random(101);
      write (a[i]:4);
    end;
  writeln();
  {ищем макс и мин}
  max:=a[1];
  min:=a[1];
  for i:=2 to n do
    begin
      if a[i]<min then min:=a[i];
      if a[i]>max then max:=a[i];
    end;
{выводим результат}
  writeln();
  writeln(' Максимальный элемент ',max);
  writeln(' Минимальный элемент ',min);
  writeln(' Размах между максимальным и минимальным элементами ',max-min);
    end.

+ 0 -

Anjuuuu

17 мая 2014 г., 10:12:38 (9 лет назад)

uses crt;
var

  a:array[1..10] of integer;
  i,max,min:integer;
begin
  max:=1; min:=100;
  for i:=1 to 10 do
  begin
    a[i]:=random(101);
    write(a[i]:4);
    if a[i]>max then max:=a[i];
    if a[i]<min then min:=a[i];
  end;
  writeln;
  write('max=',max,'; min=',min,' ; razmah=',max-min);
end.