Переделать программу с использованием модуля - Pascal ABC

Формулировка задачи:

помогите сделать задачу с помощью создание модуля вот сама задачка:

                    Листинг программы
                
 
                        
                          
                    
const
n = 5;
var
ar :array[1..n] of real;
i : integer;
max : real;
begin
 
  for i := 1 to n do begin
    ar[i] := random*20 - 10;
    write(ar[i]:10:2);
    if(i = 1) then max := ar[i];
    if(abs(ar[i]) > abs(max)) then max := ar[i];
  end;
  writeln();
  write('max = ',max:2:2);
 
end.

ее нужно сделать через модуль

Решение задачи: «Переделать программу с использованием модуля»

textual
                            Листинг программы 
                        
uses
  modul;
begin
  main;
end.

Оцени полезность:

5 голосов , оценка 5 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы