Вопрос по информатике:
Паскаль АВС
Заполнить массив из 10 элементов случайными числами в интервале [-10..10] и найти в нем максимальный и минимальный элемент и их номера.
Задачу решить без всяких сокращений, на уровне 8 класса. Команды использовать как показано во вложении.
- 09.06.2015 22:08
- Информатика
- remove_red_eye 16128
- thumb_up 32
Ответы и объяснения 1
Var
i, max, min, maxi, mini: integer;
a: array[1..10] of integer;
begin
randomize;
for i:=1 to 10 do
a[i] := random(21) - 10;
max := a[1];
min := a[1];
for i:=2 to 10 do
begin
if a[i] > max then begin max := a[i]; maxi := i; end;
if a[i] < min then begin min := a[i]; mini := i; end;
end;
writeln(max, ' ', maxi);
writeln(min, ' ', mini);
end.
- 01.01.1970 00:00
- thumb_up 2
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.