|
Вопрос # 1 044/ вопрос открыт / |
|
Приветствую, уважаемые эксперты!
Написать процедуру, которая возвращает максимальное и минимальное значения в последовательности N случайных чисел.
 |
Вопрос задала: natasha (статус: Посетитель)
Вопрос отправлен: 28 октября 2007, 19:34
Состояние вопроса: открыт, ответов: 4.
|
Ответ #1. Отвечает эксперт: ANBsoft
Здравствуйте, natasha!
Вы уже прикумарили всех! Есть волшебная клавиша F1, она расказывает что делает каждая функция и дает примеры использования.
Здесь помогают людям решать проблемы, а не делают задания в школу за ламеров, которые ни книг не хотят читать, ни даже помощь вызвать лень.
 |
Ответ отправил: ANBsoft (статус: Студент)
Время отправки: 28 октября 2007, 19:33
|
Ответ #2. Отвечает эксперт: Иусов Сергей Ник.
Здравствуйте, natasha!
var
i,N,z:integr;
max:integer;
begin
max:=-30000;
WriteLn('Введите N?');
ReadLn(N);
for i:=1 to N do
begin
WriteLn('Введите число №',i);
ReadLn(z);
if z>max then max:=z;
end;
WriteLn('Максимальное число: ', max);
end;
 |
Ответ отправил: Иусов Сергей Ник. (статус: 3-ий класс)
Время отправки: 28 октября 2007, 19:36
|
Ответ #3. Отвечает эксперт: Aleksey P. Kharitonov
Здравствуйте, natasha!
Как бы это могло быть на Паскале:
Приложение: Переключить в обычный режим- program Ex1;
- const
- N = 10;
- var
- a: array[0..N-1] of integer;
- i, min, max: byte;
- begin
- Randomize;
- min:= 100; max:= 0;
- for i:= 0 to N-1 do
- begin
- a[i]:= Random(100);
- Writeln('a[',i,']= ', a[i]);
- if a[i] > max then max:= a[i];
- if a[i] < min then min:= a[i];
- end;
-
-
- end.
Ответ #4. Отвечает эксперт: Feniks
Здравствуйте, natasha!
Функции поиска минимального и максимального значения в масиве чисел есть в стандартном модуле Math.pas и кажется они описаны в Хелпе :
MaxIntValue
Returns the largest signed value in an integer array
MaxValue
Returns the largest signed value in an array
Mean
Returns the average of all values in an array
MinIntValue
Returns the smallest signed value in an integer array
MinValue
Returns smallest signed value in an array
В этом же модуле можно и исходники посматреть.
 |
Ответ отправил: Feniks (статус: Бакалавр)
Время отправки: 30 октября 2007, 15:21
Оценка за ответ: 5
|
Мини-форум вопроса
Всего сообщений: 1; последнее сообщение — 28 октября 2007, 19:42; участников в обсуждении: 1.
|
Aleksey P. Kharitonov (статус: 3-ий класс), 28 октября 2007, 19:42 [#1]:
To: Бубырь Александр Николаевич
Вам большой респект!
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
