Здравствуйте еще раз!!!Показала задачи преподавателю а он мне сказачто нужно сделать по другому как то вот так что бы при работе с массивами обязательно должны быть процедуры ввода, вывода и
процедуры или функции решения задачи.А я не знаю как это вставить в ваши задачи что бы ничего не испортить. Посмотрите пожалуйста можно что то с этим сделать.
Например
Const n=100;
Type mas1= array[1..n] of integer;
Var a:mas1; c,d : integer;
Procedure Vvod1(var a:mas1);
var i:integer;
begin
for i:=1 to n do a[i]:=random(1000);
end;
Procedure Print1(var a:mas1;n:integer);
var i:integer;
begin
for i:=1 to n do write(a[i]:4);
writeln;
end;
Procedure Р(...) или Function F(...):<тип> для решения задачи.
Зарание спасибо!!!!