Question

Напишите программу по заполнению массива из 30 ячеек случайными величинами от 40 до 100. Пожалуйста СРОЧНО

Answer 1

program a;

var

mas: 1..30,

ii: integer;

begin

 for ii := 1 to 30

   mas[ ii ] := 40 + random( 61 );

end.

Answer 2

спс

Answer 3

толькотам я случай 4 поставил а так 5

Answer 4

спс

Answer 5

это точно правильно?

Answer 6

да