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.
Поделитесь своими знаниями, ответьте на вопрос:
Сосавить программу, которая формирует массив, содержащий 8 случайных целых чисел, принадлежащих промежутку[0; 6] и преобразует элементы массива по следующему правилу: четное число умножает на 3, а к нечетному прибавляет 2
var a: array [1..8] of integer; i: integer; beginfor i: =1 to 8 doread(a[i]); for i: =1 to 8 doif (a[i]) div 2 = 0 then a[i]: =(a[i])*3else a[i]: =a[i]+2; for i: =1 to 8 dowriteln(a[i]); end.
тока добавь что числа в промежутке [0..6]