составить программу, которая формирует массив, содержащий 15 ...
составить программу, которая формирует массив, содержащий 15 случайных целых чисел, принадлежащий промежутку [0; 8], и преобразует элементы массива по следующему правилу: к чётному числу прибавляет 1, а нечётное умножает на 2.
Есть ответ
18.12.2022
286
Ответ
var i: integer; a: array [1..15] of integer;
begin write('Исходный массив: '); for i:= 1 to 15 do //Формируем и распечатываем массив begin a[i]:= random(8); write(a[i],' '); end; writeln; //Перевод на новую строку write('Преобразованный массив: '); for i:= 1 to 15 do begin if a[i] mod 2 = 0 then a[i]:= a[i] + 1 {Если элемент массива с индексом i четный, то прибавляем к нему 1, иначе умножаем на 2} else a[i]:= a[i] * 2; write(a[i], ' '); end; writeln; {Перевод на новую строку, чтобы при повторном запуске программы сформированный массив печатался на новой строке}end.
Отметь решение, как лучшее плиз)
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
18.12.2022