Вопрос по информатике:
Pascal: Задан массив размерностью 100 случайных чисел из
диапазона (-85, +165). Вывести на экран все элементы
массива, а также максимальный из последних 25.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 27.08.2016 14:54
- Информатика
- remove_red_eye 14577
- thumb_up 36
Ответы и объяснения 2
var
a:array[1..100]of integer;
i,max,c:integer;
begin
for i:=1 to 100 do
begin
a[i]:=random(251)-85;
if i=76 then
max:=a[i];
if i>76 then
if a[i]>max then
max:=a[i];
write(a[i],' '); end;
writeln;
writeln(max); end.
- 28.08.2016 15:14
- thumb_up 40
Var
a: array[1..100] of integer;
i, max: integer;
begin
writeln('Построенный массив ');
for i := 1 to 100 do begin
a[i] := random(251) - 85;
write(a[i], ' ');
if i = 76 then max := a[i];
if i > 76 then if a[i] > max then max := a[i];
end;
Writeln('| Максимальный элемент из последних 25-ти чисел массива равен ', max);
end.
- 29.08.2016 10:59
- thumb_up 27
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.