Ответы
Ответ дал:
0
uses crt;
var a:array[1..30] of integer;
k,i:integer;
begin
randomize;
for i:=1 to 30 do begin
a[i]:=random(10)+1;
write(a[i]:3);
end;
k:=1;
for i:=2 to 29 do
k:=k*a[i];
writeln;
write(k);
end.
var a:array[1..30] of integer;
k,i:integer;
begin
randomize;
for i:=1 to 30 do begin
a[i]:=random(10)+1;
write(a[i]:3);
end;
k:=1;
for i:=2 to 29 do
k:=k*a[i];
writeln;
write(k);
end.
Вас заинтересует
2 года назад
8 лет назад
10 лет назад
10 лет назад
10 лет назад