Вопрос от посетителя:
Заполните пропуски в программе ввода и вывода 10 целочисленных элементов массива, заданных случайным образом на промежутке [20; 40]: Program gh; var A: array[ 1..___] of integer; i: integer; begin for i:=1 to __ do begin A[i] := random(___) + ____; write(____); end; end.
Илюха отвечает:
Program gh;
var A: array[ 1..10] of integer;
i: integer;
begin
for i:=1 to 10 do
begin
A[i] := random(20) + 20;
write(A[i]);
end;
end.