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

Question

Информатика

Адам

24 мая, 22:44

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

+5

Ответы (1)

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

Агния · Answer 1

Uses crt;

const n=15;

var a:array[1 ... n] of real;

max:real;

i, c:integer;

begin

randomize;

readln (c) ;

max:=-50;

for i:=1 to n do

begin

a[i]:=random (100) - 50;

write (a[i]:4) ;

end;

writeln;

writeln;

for i:=1 to n do

begin

a[i]: = (c+a[i]) / 2;

write (a[i]:4) ;

end;

writeln;

writeln;

for i:=1 to n do

begin

if (i mod 20) then

begin

if a[i]>max then max:=a[i];

end;

end;

write (max) ;

end.