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

[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

[Ozzя]

Зачем два цикла для нахождения макс. и мин-му?

Есть функция odd для проверки четности/нечетности.

[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.

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

[Ozzя]

Ничего. Просто randomize;

[Nemesis]

Ничего. Просто randomize;

и без скобок?так он там пишет неизвестный идентификатор...и прога не запускаеться(((жму запустить и просто моргнет и все,че делать?

Сообщение отредактировано: Nemesis - 5.12.2007 17:10

[klem4]

поставь предпоследней строчкой программы readln; чтобы посмотреть результаты после выполнения программы.

randomize; ни на что ругаться не должен, если ругается, значит у тебя криво поставлен компилятор, качай другой.

[Nemesis]

Он у меня выводит токо 9 и -7...как сделать так чтобы самому числа вводить?
ну или вот этого выдает


9
-9
9
-1
-3
9
9
9
9
9
-1
9
9
9
-7
9
9
9
-7
-7
-3

Сообщение отредактировано: Nemesis - 5.12.2007 21:49

[Ozzя]

как сделать так чтобы самому числа вводить?

for i:=1 to n do
  readln(a[i]);