Вопрос по информатике:
Составить алгоритм (блок-схема, программа на языке Pascal) для нахождения максимального элемента в массиве из 10 случайных элементов
Пожаловаться
- 27.10.2017 05:22
- Информатика
- remove_red_eye 2755
- thumb_up 9
Ответы и объяснения 1
//PascalABC.NET 3.2 сборка 1318
Var
ar:array[1..10] of integer;
i,m:integer;
begin
m:=integer.MinValue;
for i:=1 to 10 do
begin
ar[i]:=random(101);
write(ar[i]:4);
if ar[i]>m then m:=ar[i];
end;
writeln;
write('Max=',m);
end.
Пример работы программы:
6 84 52 68 75 86 37 44 23 36
Max=86
Var
ar:array[1..10] of integer;
i,m:integer;
begin
m:=integer.MinValue;
for i:=1 to 10 do
begin
ar[i]:=random(101);
write(ar[i]:4);
if ar[i]>m then m:=ar[i];
end;
writeln;
write('Max=',m);
end.
Пример работы программы:
6 84 52 68 75 86 37 44 23 36
Max=86
Пожаловаться
- 28.10.2017 13:20
- thumb_up 12
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы