// PascalABC.Net 3.0, сборка 1066
begin
var a:=MatrixRandom(2,4,-25,25);
Writeln('Исходная матрица: ',a);
var s:=0;
for var i:=0 to 1 do
for var j:=0 to 3 do
s+=a[i,j];
Writeln('Сумма элементов равна ',s)
end.
<em><u>Тестовое решение:</u></em>
Исходная матрица: [[-15,-12,-9,5],[-8,-3,-23,7]]
Сумма элементов равна -58
Зачем писать "10 баллов", будто ты можешь поставить ещё меньше?
Переписываем на JS (попутно сокращая мусор, вроде условия с одинаковым телом "S += D % 10" или "10 / 2").
javascript:var A = 12, B = 15, S = 0, D = (A * B / 7 | 0) - 5 + A; while (D % 10 * 10 != 30) { if (D % 2 == 0) S += D % 10; D = D % 10 * 8 + 3; } alert(S);
Выполняем и получаем 2.
Program pr1;
Uses Crt;
Var
dn:integer;
begin
ClrScr;
write('Введите номер месяца:');
readln(dn);
if (dn>0) and (dn<13) then
begin
case dn of
1,3,5,7,8,10,12:writeln('В этом месяце 31 день');
4,6,9,11:writeln('В этом месяце 30 дней');
2:writeln('В этом месяце 28 дней');
end;
end
else writeln('Введите корректно');
readln;
end.