Нароод! Кто смыслит в информатике…

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

в избранное

targon

23 августа 2022

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] комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?