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

program xxx; var    b, c : array [1..15] of integer;     i, s, a : integer;

begin//подключаем датчик случайных чисел    randomize; //цикл заполняющий массивы     for i: =1 to 15 do          begin                b[i]: =random(100);                 c[i]: =(b[i] + i);             end; //выводим на экран 1ый массивwrite('первый массив: '); for i: =1 to 15 do    begin        write(b[i],'  ')    end; writeln(''); //выводим на экран 2ой массивwrite('второй массив: '); for i: =1 to 15 do    begin          write(c[i],' ')    end; writeln('');

//вводим число аwrite('введите число а=');

readln(a);

//формируем 3-ий массив и находим сумму эоементов меньших а

s: =0; for i: =1 to 15 do    if c[i]< a then begin c[i]: =c[i]* 2; s: =s+c[i]; end;

//выводим на экран 3-ий массивwrite('третий массив: '); for i: =1 to 15 do    begin          write(c[i],' ')    end; writeln('');

writeln('сумма элементов меньших а=', s);

readlnend.

Изивини ради баллов

Объяснение:

Овтет ответ ответ ответ лол рали баллов соррисорри баллы