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

Question

Информатика

Далмат

7 октября, 06:56

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

+1

Ответы (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.