решите задание по информатике, тема одномерные массивы
Answers & Comments
jerrystreet
Program n_1; var a:array[1..1000] of integer; i, n:integer; begin writeln('Введите кол-во элементов'); readln(n); for i:=1 to n do begin a[i]:=random(64000)-32000; writeln (a[i],' '); end; end.
Answers & Comments
var a:array[1..1000] of integer;
i, n:integer;
begin
writeln('Введите кол-во элементов');
readln(n);
for i:=1 to n do
begin
a[i]:=random(64000)-32000;
writeln (a[i],' ');
end;
end.