Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Определени максимального и минимального числа

Автор: Nemesis 5.12.2007 16:16

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


плиз помогите!!! smile.gif

Автор: drug 5.12.2007 17:00

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я 5.12.2007 17:05

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

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

Автор: Nemesis 5.12.2007 20:47

Цитата(drug @ 5.12.2007 13:00) *

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я 5.12.2007 20:55

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

Автор: Nemesis 5.12.2007 21:08

Цитата(Ozzя @ 5.12.2007 16:55) *

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



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

Автор: klem4 5.12.2007 23:37

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

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

Автор: Nemesis 6.12.2007 1:12

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


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

Автор: Ozzя 6.12.2007 10:34

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

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