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


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

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.

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

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

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

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

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

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

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

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


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

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