написать программу: дано целое число. Если оно четное, то увеличить данное число в 2 раза, иначе - в 3 раза.

289

401

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

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

School957

Информатика

4,5(51 оценок)

Program maschetinol; var a: array [1..25] of integer; i: integer; begin write ('массив: '); for i: =1 to 25 do begin a[i]: =random(51); write (a[i], ' '); end; writeln; write('чётные элементы: '); for i: =1 to 25 do if a[i] mod 2 = 0 then write (a[i],' '); writeln; write('элементы, оканчивающиеся на ноль: '); for i: =1 to 25 do if a[i] mod 10 = 0 then write(a[i],' ') end.