1. Задать массив М (9) случайными числами от 21 до 47.

2. Уменьшить на 3 элементы массива.

3. Увеличить на 50 элементы массива.

Question

Информатика

Полактия

29 июня, 21:53

1. Задать массив М (9) случайными числами от 21 до 47.

2. Уменьшить на 3 элементы массива.

3. Увеличить на 50 элементы массива.

+4

Ответы (1)

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

Вовуля · Answer 1

Var

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

i:integer;

begin

for i:=1 to 9 do

begin

a[i]:=random (26) + 21;

write (a[i]," ") ;

end;

writeln () ;

for i:=1 to 9 do

begin

a[i]:=a[i]-3;

write (a[i]," ") ;

end;

writeln () ;

for i:=1 to 9 do

begin

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

write (a[i]," ") ;

end;

end.

1. Задать массив М (9) случайными числами от 21 до 47.2. Уменьшить на 3 элементы массива.3. Увеличить на 50 элементы массива.

1. Задать массив М (9) случайными числами от 21 до 47.

2. Уменьшить на 3 элементы массива.

3. Увеличить на 50 элементы массива.