:*дан двумерный массив вывести на экран все элементы n-й строки массива паскаль

Var a: array [1..8,1..8] of integer;           j,k,n: integer; begin   randomize;   for j: =1 to 8 do       begin           for k: =1 to 8 do               begin                   a[j,k]: =random(9)+1;                   write (a[j,k]: 2);               end;           writeln;       end;   repeat       write ('n = ');       readln (n);   until n in [1..8];   for j: =1 to 8 do write (a[n,j]: 3);   writeln;   readln; end.

если n это количество чисел, начинаем с 3

var

i,n,p: integer

begin

readln(n);

i: =3;

p: =1;

while i< =3*n do

begin

p: =p*i;

i: =i+3;

end;

writeln(p);

end.

если n это верхняя граница чисел

var

i,n,p: integer

begin

readln(n);

for i: =3 to n

if i mod 3 = 0 then

p: =p*i;

writeln(p);

end.

 

1)сила всех и глубина вростания репки, так же состояние здоровья каждого и состояние почвы

а так же не завалялась ли где нормальная лопата

2)смотря что такое по братски, но зная карлсона, он возьмет себе большой

3)главное чтоб пончику хватило. а больше он все равно сделать не в состоянии

4) радиус двери, радиус вини, прирост от сгущенки, прирост от меда, кол-во того и другого, скорость похудения и тп