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

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

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

Question

Ипполита

5 сентября, 23:49

+3

Ответы (2)

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

Вилен · Answer 1

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.

Элла · Answer 2

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.