Задать массив состоящий из 10 случайных чисел в интервале от 1 до 100, записать затем увеличить элементы в 2 раза и опять записать

231

500

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

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

ника43556

Информатика

4,4(91 оценок)

Const n=10; var a: array[1..n] of integer; i: integer; begin randomize; for i: =1 to n do begin a[i]: =random(101)+1; write(a[i]: 4); end; writeln; for i: =1 to n do begin a[i]: =2*a[i]; write(a[i]: 4); end; writeln; end. пример: 49 50 73 47 69 29 42 37 44 19 98 100 146 94 138 58 84 74 88 38