Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиКалендарьОблакоЗаметкиВсе проекты

Информатика задачи из 10 класса

Петр Пупкин Ученик (145), закрыт 10 месяцев назад
Помогите пожалуйста решить задачи по информатике с решением
Лучший ответ
Владимир Втюрин Высший разум (104756) 12 месяцев назад
Задача 4
PacalABC

const n = 6;
var Mas : array [1..n, 1..n] of integer;
ColOtr, ColPol : integer;
begin
ColPol := 0; ColOtr := 0;
for var i := 1 to n do
for var j := 1 to n do Mas[i, j] := -5 + random(11);
for var i := 1 to n do
begin
for var j := 1 to n do Write (Mas[i, j]:5);
WriteLn;
end;
for var k := 1 to n do
for var m := 1 to n do
begin
if (m > k) and (Mas[k,m] < 0) then ColOtr := ColOtr + 1;
if (m < k) and (Mas[k,m] < 0) then ColPol := ColPol + 1;
end; WriteLn;
WriteLn (' Выше главной диагонали = ', ColOtr);
WriteLn (' Ниже главной диагонали = ', ColPol);
end.

Петр ПупкинУченик (145) 12 месяцев назад
спс
Остальные ответы
Похожие вопросы