Помогите пожалуйста.

0 голосов
11 просмотров

Помогите пожалуйста.


image
image
image
image
image

Информатика (18 баллов) | 11 просмотров
Дан 1 ответ
0 голосов

var array1: array [1..N] of real;

i: integer;

begin

randomize;

for i:=1 to N do begin

array1[i]:= random(-lim, lim) * 2;

writeln(array1[i]);

end

end.

(36 баллов)