сосавить программу,которая формирует массив,содержащий 8 ...
сосавить программу,которая формирует массив,содержащий 8 случайных целых чисел,принадлежащих промежутку[0;6] и преобразует элементы массива по следующему правилу:четное число умножает на 3,а к нечетному прибавляет 2
Есть ответ
17.12.2022
421
Ответ
Program Program1;vara:array [1..8] of integer;i:integer;s:string;beginrandomize;writeln('Исходный массив:');for i:=1 to 8 dobegina[i]:=random(7);writeln('a[',i,']=',a[i]);end;for i:=1 to 8 doif a[i] mod 2 = 0 thena[i]:=a[i]*3elsea[i]:=a[i]+2;writeln;writeln('Преобразованный массив:');for i:=1 to 8 dowriteln('a[',i,']=',a[i]);end.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
17.12.2022
