Дан массив, состоящий из 8 случайных целых чисел - 5 до 10, Все его элементы уменьшить на число (а) (число "а" введите с клавиатуры)

Question

Информатика

Корнеич

18 февраля, 18:26

Дан массив, состоящий из 8 случайных целых чисел - 5 до 10, Все его элементы уменьшить на число (а) (число "а" введите с клавиатуры)

+3

Ответы (1)

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

Костюня · Answer 1

Var

a:integer;

b:array [1 ... 8] of integer;

begin

readln (a) ;

for i:=1 to 8 do b[i]:=random (16) - 5;

for i:=1 to 8 do b[i]:=b[i]-a;

for i:=1 to 8 do write (b[i],' ') ;

end.