Нажми на кнопку анимации,1 слайд,убираешь звук.:)
Код программы в файле. Решаются два примера, что-бы решить А) введите 1, и Б) введите 2.
var
i,j,s:integer;
x:array[1..8,1..8] of integer;
y:array[1..10,1..10] of integer;
begin
s:=0;
for i:=1 to 8 do
for j:=1 to 8 do
begin
readln(x[i,j]);
if i<=j then s:=s+x[i,j];
end;
writeln("Сумма для X=", s);
s:=0;
for i:=1 to 10 do
for j:=1 to 10 do
begin
readln(y[i,j]);
if i<=j then s:=s+y[i,j];
end;
writeln("Сумма для Y=", s);
end.
Здесь только два первых задания
(1), т.к. поднялся в Школа и опустился в *Школа\Задания\Математика