Pascal.ABC/Дан массив A размера N. Найти максимальный элемент из его элементов с...

0 голосов

Pascal.ABC/Дан массив A размера N. Найти максимальный элемент из его элементов с нечетными номерами: A1, A3, A5, … .


спросил от Начинающий (449 баллов) в категории Информатика
1 Ответ
0 голосов
ответил от БОГ (194k баллов)
 
Лучший ответ

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

...