Pascal.ABC/Дан массив A размера N. Найти максимальный элемент из его элементов с нечетными номерами: A1, A3, A5, … .
76
ОТВЕТЫ
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]gt;max then max:=a[2*i+1];
writeln(max = ,max);
end.
Пример:
20 31 42 35 5 44 11 23 26 27
max = 42
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]gt;max then max:=a[2*i+1];
writeln(max = ,max);
end.
Пример:
20 31 42 35 5 44 11 23 26 27
max = 42
5
Отв. дан
Modidor
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Английский язык
Adoth
2018-09-23 00:00:00
Monn
Решите неравенство 5-3(x-2)>1-(2+x) ...
2018-09-23 00:00:00
Adoth
2018-09-23 00:00:00
Malargas
My ideal of beauty(мой идеал красоты) небольшое сочинение на ...
2018-09-23 00:00:00