Составьте программу, которая формирует массив, содержащий 10 случайных целых чисел, принадлежавших промежутку [0; 7], и преобразует элементы массива по следующему правилу: к чётному числу прибавляет 3,а к нечётное умножает на 4

104

252

Посмотреть ответы 2

Ответы на вопрос:

sabinagamzaeva

Информатика

4,7(75 оценок)

program program1; vari: integer; a: array [1..10] of integer; beginrandomize; writeln; writeln('массив до преобразования: '); for i: =1 to 10 dobegina[i]: =random(8); write(a[i],', '); end; for i: =1 to 10 doif a[i] mod 2 = 0 thena[i]: =a[i]+3elsea[i]: =a[i]*4; writeln; writeln('массив после преобразования: '); for i: =1 to 10 dowrite(a[i],', '); end.