Запишите цикл вывода на экран элементов этого массива в строку через несколько пробелов.

Запишите цикл формирования этого массива (15 элементов) случайных чисел из отрезка [-7; 5].

программа: Pascal ABC.

Question

Устиния

13 ноября, 14:39

+1

Ответы (2)

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

Никанор · Answer 1

Var m : array[1 ... 15] of Integer;

i : Byte;

Begin

For i:=1 to 15 do

Begin

m[i]:=-7+Random (13) ;

Write (m[i],' ') ;

end;

Writeln;

end.

Натуся · Answer 2

Var A:array[1 ... 15] of Integer;

i:integer;

begin

For i:=1 to 15 do

A[i]:=Random (-7,5) ;

For i:=1 to 15 do

Write (A[i],' ') ;

end.