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

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

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

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





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

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


Помогите, плиз, с задачкой если есть лишняя минутка ;)

В масиве хранится информация о годе рождения 30 человек.Вывести самого старшего и самого молодого (1989-2000) - из этого интервала

Добавлено через 9 мин.
Код
Uses crt;
Const n=30;

Var   m: array [1..n] of integer;
          I: byte
g , min, max, r : integer;

begin
clrscr;
...
randomize;
for   i:=1 to n do
begin
m[i] := random (2000-1990+1)+1990;
end;



так правильно вроде?
не хватает только самого подсчёта максимального и минимального значения и его вывода.

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


Знаток
****

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

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


 
var
ar : array [1..30] of integer;
i, max, min : integer;

begin
for i:= 1 to 30 do begin {Пробегаем по массиву и считываем данные}
write('Enter date:');
read(ar[i]);
end;
max:=ar[1]; {Самый младший - первый}
min:=ar[1]; {Самый старший - первый}
i:=1;
while i<30 do begin
inc(i);
if ar[i]>max then {Если младше младшего, то он становится младшим}
max:=ar[i];
if ar[i]<min then {Если старше старшего, то он становится старшим}
min:=ar[i]
end;
write('Mlad:',max,';Star:',min); {Вывод}
readln;
readln;
end.



Сообщение отредактировано: arhimag -


--------------------
Чего хочет женщина – того хочет Бог
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3





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

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


благодарю, сейчас попробую smile.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Знаток
****

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

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


Увидел обновление первого сообщения.
Код
var
  ar : array [1..30] of integer;
  i, max, min : integer;

begin
  randomize;
  for i:= 1 to 30 do begin {Пробегаем по массиву и считываем данные}
    ar[i]:=random(11)+1990;     {Разброс я бы поставил побольше,    ar[i]:=-random(50)+25+1990;}
  end;
  max:=ar[1]; {Самый младший - первый}
  min:=ar[1]; {Самый старший - первый}
  i:=1;
  while i<30 do begin
    inc(i);
    if ar[i]>max then {Если младше младшего, то он становится младшим}
      max:=ar[i];
    if ar[i]<min then {Если старше старшего, то он становится старшим}
      min:=ar[i]
  end;
  writeln('Mlad:',max,';Star:',min); {Вывод}

  for i:= 1 to 30 do writeln('Element ',i,' raven ',ar[i]);     {Это для проверки результа когда удостоверишься в работоспособности удалишь эту строчку}

  readln;
end.


Сообщение отредактировано: arhimag -


--------------------
Чего хочет женщина – того хочет Бог
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5





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

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


ну да, через рандом, в ручную массив заполнять не надо smile.gif сек
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 





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