begin
var a := MatrRandom(4, 3, -99, 99);
a.Println(4);
a.ElementsByRow.Where(p -> p > 1).Count.Println
end.
Ряд 2,4,6,8... является арифметической прогрессией с разностью d=2, и первым членом a1=2
формула суммы первых n членов:
в данной задаче:
поэтому при составлении программы можно обойтись без циклов
программа:
Program n1;
var n: integer;
begin
readln(n);
write(n*n+n);
end.
4 месяца в году. посмотри на календарик
var
a,b,c,n:integer;
begin
n:=0;
writeln("Введите 3 числа");
readln(a,b,c);
if a<0 then inc(n);
if b<0 then inc(n);
if c<0 then inc(n);
writeln("Из них ", n, " отрицательные.");
end.