Сформировать и вывести на экран последовательность из n
элементов, заданных датчиком случайных чисел на интервале [-23, 34].
Program posled;
Var a: array[1..100] of integer;
i, n: integer;
begin
Write (‘Сколько элементов? ’ ); Readln (n);
Для i=1 To n do
begin
a[i]:= Random (58)-23;
writeln (a[i],’ ‘);
end;
end.

Сайка1111111    1   16.04.2020 11:39    29