Технический форум - Модуль в Паскале

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Модуль в Паскале (http://www.tehnari.ru/f41/t50796/)

Ксения)777)

22.04.2011 20:46

Модуль в Паскале

Оформить в виде основной программы и процедуры (функции) (поместить в модуль) с параметрами программу, выполняющую заполнение массива случайными цифрами и поиск мак-симального элемента.

KUS	22.04.2011 21:55

Ксения, а шнурки Вам не погладить, уж простите?

Mr.П 2.0

23.04.2011 03:10

Конечно без модуля, но лучше что-то чем ничего.

Код:

Var a:array[1..1000] of longint;

n:integer; max:longint; i:byte;

begin

randomize;

Writeln('vvedite kol-vo elementow');

repeat

readln(n);

until ((n>=1) and ( n<=1000));

for i:=1 to n do

begin

begin

a[i]:=random(10000);

Write(i,' chlen = ');

Write(' ', a[i],' ');

end;

Writeln;

end;

max:=a[1];

for i:=2 to n do

begin

if a[i]>max

then

max:=a[i];

end;

Writeln('maxmal = ',max);

readln;

end.

Часовой пояс GMT +4, время: 18:00.