anastia728
Опубликовано 6 лет назад по предмету Информатика от anastia728


Создать массив из 10 случайных чисел. Вывести его на экран. Все элементы массива поделить на значение наибольшего элемента этого массива и так-же вывести на экран.срочноо

  1. Ответ
    Ответ дан Alex24241
    var a:array[1..10] of Real;i: Integer;max:real;beginmax:=0;WriteLn('Исходный массив'); for i:=1 to 10 do begin a[i] := random(10); Write(a[i]:3:1,' '); if a[i]>max then max:=a[i]; end; WriteLn; WriteLn('Итоговый массив'); for i:=1 to 10 do begin a[i] := a[i]/max; Write(a[i]:3:1,' '); end;end.
Не тот ответ, который вам нужен?
Найди нужный
Задай вопрос

Лучшие за месяц