Вопрос по информатике:
Помогите, пожалуйста.
Дан массив размеров N, не превышающий 100. Заполните массив от 0 до N. Вывести номер и значение максимального и минимального элемента.
Пожаловаться
- 14.03.2018 08:02
- Информатика
- remove_red_eye 12136
- thumb_up 19
Ответы и объяснения 1
Var
arr: array[1..100] of integer;
i, n, min, max: integer;
begin
min:=1;
max:=1;
readln(n);
for i:=1 to n do
begin
arr[i]:=random(100);
write(arr[i], ' ');
if arr[i]>arr[max] then max:=i;
if arr[i]
writeln;
writeln('Минимальный(', arr[min], ');
Максимальный(', arr[max], ');');
end.
arr: array[1..100] of integer;
i, n, min, max: integer;
begin
min:=1;
max:=1;
readln(n);
for i:=1 to n do
begin
arr[i]:=random(100);
write(arr[i], ' ');
if arr[i]>arr[max] then max:=i;
if arr[i]
writeln;
writeln('Минимальный(', arr[min], ');
Максимальный(', arr[max], ');');
end.
Пожаловаться
- 15.03.2018 15:06
- thumb_up 8
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы