Дан одномерный массив целых чисел, сост. из 14 ячеек, заполн. случайными числами из промежутка [-20; 50]. увелич. каждый элемент массива на 150

Question

Лаврюня

9 декабря, 05:44

+3

Ответы (1)

Знаете ответ на вопрос?

Кока · Answer 1

Var

a:array[1 ... 14] of integer;

i:integer;

begin

for i:=1 to 14 do

a[i]:=a[i]+1;

readln;

readln;

end.