Помогите решить задучу по информатике: Дан массив из 8 случайных чисел от - 4 до 10. Все его элементы увеличить на число b (число b вводится с клавиатуры).

Question

Информатика

Алекся

13 декабря, 01:56

Помогите решить задучу по информатике: Дан массив из 8 случайных чисел от - 4 до 10. Все его элементы увеличить на число b (число b вводится с клавиатуры).

+5

Ответы (1)

Знаете ответ?

Куприян · Answer 1

Program n1;

var

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

i, b:integer;

begin

randomize;

for i:=1 to 8 do begin

m[i]:=random (15) - 4;

write (m[i],' ') ;

end;

writeln;

writeln ('Введите b') ; readln (b) ;

for i:=1 to 8 do begin

m[i]:=m[i]+b; write (m[i],' ') ; end;

end.