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

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.

Объяснение:

вот

Представим слова, как числа в 3сс, (где А=0, О=1, У=2.)
Тогда:
 00000  1место  
О 00001   2место
   

на 101 (10сс) месте будет стоять число 100 (10сс)
100 (10сс) =10201 (3сс) =ОАУАО
на 125 (10сс) месте 124(10сс) =11 121 (3сс) =ОООУО
на 170(10сс) месте  169(10сс) = 20021 (3сс) =УААУО
на 210 месте    209 (10сс) =21202 (3сс) =УОУАУ

первое число, которое начинается с "О" =О=10000 (3сс) =
 =81 (10сс),
 номер его места =82 (10сс)
последнее, которое начинается на "О"  =О=12222 (3сс) =
=161 (10сс), номер его места =162(10сс)

Решение: Из списка видно, что используются только символы: "А", "О", "У". Пусть "А"=0, "О"=1, "У"=2.

Список после замены станет таким:

00000 00001 00002 00010

Видно, что это числа идущие по порядку от нуля в троичной системе. В десятичной системе счисления список бы был таким: 0, 1 , 2, 3

Нам нужно найти, какое число будет стоять на 240 месте. Т.к. список чисел начинается с нуля, следовательно, нам нужно перевести число 239 в троичную систему счисления:

239 | 3     
21      79 | 3    
  29    6     26 | 3   
  27    19   24    8  | 3
   2     18     2    6    2 
            1          2

Перепишем полученное число: 222123. Переведем обратно в символы: УУУОУ.