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

Question

Информатика

Вила

8 июля, 03:35

Дан массив, состоящий из 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.