Const N = 7;Var A:array[1..N,1..N] of integer; i,j:integer;BeginFor i:= 1 to N do Begin For j:= 1 to N do Begin A[i,j]:=random(21)-10; Write(A[i,j]:3,' ') End; WriteLn End;WriteLn;For i:= 1 to N div 2+(N mod 2) do Begin For j:= 1 to N do Begin if (j<=N div 2+i)and(N div 2-i+(N mod 2)<j) then A[i,j]:=99; Write(A[i,j]:3,' ') End; WriteLn; End;For i:= (N div 2)+(N mod 2)+1 to N do Begin For j:= 1 to N do Begin if (i-N div 2-1<j)and(j<=N+N div 2+1-i) then A[i,j]:=99; Write(A[i,j]:3,' ') End; WriteLn; End;End.
PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018 Внимание! Если программа не работает, обновите версию!
begin var (so,se):=(0,0); ReadSeqIntegerWhile(t->t>0).ForEach(t->if t.IsOdd then so+=t else se+=t); Write('Сумма четных ',se,' '); if se>so then Write('>') else if se=so then Write('=') else Write('<'); Writeln(' суммы нечетных ',so) end.
var
n, sum: int64;
begin
write ('Введите число n: ');
readln (n);
n:=abs (n);
sum:=1;
while n>0 do
begin
sum:=sum*(n mod 10);
n:=n div 10;
end;
write ('Произведение цифр числа n: ', sum);
end.