IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Определени максимального и минимального числа
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 5
Пол: Мужской

Репутация: -  0  +


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


плиз помогите!!! smile.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Новичок
*

Группа: Пользователи
Сообщений: 14
Пол: Мужской

Репутация: -  0  +


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 -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гуру
*****

Группа: Пользователи
Сообщений: 1 220
Пол: Мужской

Репутация: -  16  +


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

Есть функция odd для проверки четности/нечетности.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4





Группа: Пользователи
Сообщений: 5
Пол: Мужской

Репутация: -  0  +


Цитата(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.




а в рандомизе что в скобках указывать,чето не пашет нефига(((
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Гуру
*****

Группа: Пользователи
Сообщений: 1 220
Пол: Мужской

Репутация: -  16  +


Ничего. Просто randomize;
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6





Группа: Пользователи
Сообщений: 5
Пол: Мужской

Репутация: -  0  +


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

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



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

Сообщение отредактировано: Nemesis -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


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

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


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8





Группа: Пользователи
Сообщений: 5
Пол: Мужской

Репутация: -  0  +


Он у меня выводит токо 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

Сообщение отредактировано: Nemesis -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


Гуру
*****

Группа: Пользователи
Сообщений: 1 220
Пол: Мужской

Репутация: -  16  +


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

for i:=1 to n do
readln(a[i]);
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 18.01.2021 9:04
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name