Сформируйте массив, содержащий 15 элементов, с помощью датчика случайных чисел. Получите новый массив, каждый элемент которого равен произведению соответствующего элемента исходного массива и заданного с клавиатуры числа А. В проученном массиве найдите максимальный элемент среди элементов с нечетными номерами. Выведите на экран исходные полученные результаты.

Question

Информатика

Агрипинка

27 октября, 19:14

Сформируйте массив, содержащий 15 элементов, с помощью датчика случайных чисел. Получите новый массив, каждый элемент которого равен произведению соответствующего элемента исходного массива и заданного с клавиатуры числа А. В проученном массиве найдите максимальный элемент среди элементов с нечетными номерами. Выведите на экран исходные полученные результаты.

+1

Ответы (1)

Знаете ответ на вопрос?

Пульхерья · Answer 1

Var

m, n: array [1 ... 15] of integer;

a, i, max: integer;

begin

readln (a) ;

writeln ('Исходный массив:') ;

for i: = 1 to 15 do

begin

m[i]: = random (20) ;

n[i]:=m[i]*a;

if (n[i]>max) and (i mod 2=1) then max:=n[i];

write (m[i],' ') ;

end;

writeln;

writeln ('Новый массив:') ;

for i: = 1 to 15 do write (n[i],' ') ;

writeln;

writeln ('Максимальный нечетный: ', max) ;

end.