Uses crt;
var x: array[1..10,1..10] of integer;
i,j,s,n: integer;
begin
randomize;
write('Размер матрицы: '); read(n);
writeln('Матрица:');
for i:=1 to n do begin
for j:=1 to n do begin
x[i,j]:=random(30)-10;
write(x[i,j]:5);
end;
writeln
end;
j:=n+1;
for i:=1 to n do begin j:=j-1; s:=s+x[i,j];
end;
writeln('Сумма элементов побочной диагонали: ',s);
end.
сначала перевози козу, затем возвращаемся, перевозим капусту, когда перевезли капусту забираем козу обратно, оставляем козу и перевозим волка, ну а затем возвращаемся за козой.
это 100 % правильно))
== для равенства, >= "больше", <= "меньше", != для неравенства. Иногда вместо != ставят <>
//PascalABC.NET 3.1 сборка 1219
begin
var a := Range(30, 50).Where(x -> x mod 3 = 0).Aggregate(1, (s, x)-> s * x);
PrintLn(a);
end.