Определени максимального и минимального числа Опции

[Nemesis]

Составить программу определения максимального и минимального числа в массиве, состоящем из 20 чисел. Вычислить разность между максимальным и минимальным значением и заменить его четные элементы массива!!!


плиз помогите!!!

[drug]

program sd;
var
a:array[1..20]of integer;
min,max,razn,i:integer;
begin
randomize();
for i:=1 to 20 do
a[i]:=random(10)-10;
min:=a[1];
max:=a[1];
for i:=1 to 20 do
if a[i]<min then min:=a[i]
else if a[i]>max then max:=a[i];
razn:=max-min;
for i:=1 to 20 do
if (a[i]mod 2= 0) then a[i]:=razn;
writeln(razn);
for i:=1 to 20 do
writeln(a[i]:6);
end.

Сообщение отредактировано: drug - 5.12.2007 13:11

[Nemesis]

program sd;
var
a:array[1..20]of integer;
min,max,razn,i:integer;
begin
randomize();
for i:=1 to 20 do
a[i]:=random(10)-10;
min:=a[1];
max:=a[1];
for i:=1 to 20 do
if a[i]<min then min:=a[i]
else if a[i]>max then max:=a[i];
razn:=max-min;
for i:=1 to 20 do
if (a[i]mod 2= 0) then a[i]:=razn;
writeln(razn);
for i:=1 to 20 do
writeln(a[i]:6);
end.

а в рандомизе что в скобках указывать,чето не пашет нефига(((