Вопрос по информатике:
Pascal.ABC/Дан массив A размера N. Найти максимальный элемент из его элементов с нечетными номерами: A1, A3, A5, … .
- 09.11.2017 10:37
- Информатика
- remove_red_eye 18586
- thumb_up 47
Ответы и объяснения 1
Const n=10;
var a:array[1..n] of integer;
max,i:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(51);
write(a[i],' ');
end;
writeln;
max:=a[1];
for i:=1 to (n-1) div 2 do
if a[2*i+1]>max then max:=a[2*i+1];
writeln('max = ',max);
end.
Пример:
20 31 42 35 5 44 11 23 26 27
max = 42
- 01.01.1970 00:00
- thumb_up 42
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.