Вопрос по информатике:
Помогите срочнооо, 60 баллов, Паскаль!
Дан массив из 20 целых чисел. Найти минимальный элемент массива.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 07.09.2016 22:27
- Информатика
- remove_red_eye 14442
- thumb_up 45
Ответы и объяснения 2
Var a:array[1..20] of integer;
i,min:integer;
begin
min:=100;
for i:=1 to 20 do begin
a[i]:=random[min];
write(a[i],' ');
if min
writeln();
write('min = ', min);
readln();
end.
- 08.09.2016 21:52
- thumb_up 14
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
Writeln('min=',ArrRandom(20,10,99).Println.Min)
end.
Тестовое решение:
31 53 75 18 93 22 40 30 37 14 24 23 92 64 65 89 41 88 58 38
min=14
- 09.09.2016 11:20
- thumb_up 33
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.