Нароооооод!Кто смыслит в информатике,помогите пожалуйста решить ...
Нароооооод!Кто смыслит в информатике,помогите пожалуйста решить номер один.Воть:сформируйте массив, содержащий 15 элементов ,с помощью датчику случайных чисел. Получите новый массив,каждый элемент которого равен сумме соответствующего элемента исходного массива и его индекса. В полученном массиве удвойте элементы,которые меньше заданного с клавиатуры числа А,и найдите их сумму . Выведите на экран исходные и полученные результаты
Есть ответ
18.12.2022
420
Ответ
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]
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
18.12.2022