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

Ответы 1

  • var arr : array [1..15] of real; a, max : real; i : integer;begin read (a); randomize; for i := 1 to 15 do arr[i] := random (20); for i := 1 to 15 do write (arr[i], ' '); writeln; writeln; for i := 1 to 15 do write ((arr[i] + a) / 2, ' '); max := arr[1]; writeln; for i := 3 to 15 do if i mod 2 = 1 then if arr[i] > max then max := arr[i]; writeln ('max =', max);end.

  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years