Укажите правильный диапазон A1:ABC1 B23:23F K4:F2 B2:D10 - id1848396020200317 от margarita030620 17.03.2020 17:08

Question

Информатика: Укажите правильный диапазон A1:ABC1 B23:23F K4:F2 B2:D10​

margarita030620 · Accepted Answer

//Листинг программы и скриншот работы - в приложениях.
//Написано на PascalABC.NET но будет работать в простом Паскале

const
    max = 12;
var N,i,j:byte;
    sum:integer;
    ar:array[1..max, 1..max] of integer;

begin
writeln('Вычислить сумму диагональных элементов квадратной матрицы');
write('Введите размер матрицы N = ');
readln(N);

for i:=1 to N do begin
    for j:=1 to N do begin
      ar[i,j]:=random(-12,12);//любые числа
      write(ar[i,j]:6);
    end;
    writeln();
end;

sum:=0;
for i:=1 to n do
    for j:=1 to n do
      if ( i = (n-j+1) ) or ( i = j ) then
        sum:=sum+ar[i,j];

writeln('Сумма sum = ', sum);
end.

Написать программу которая вычисляет сумму диагональных элементов квадратной матрицы

Написать программу которая вычисляет сумму диагональных элементов квадратной матрицы

Укажите правильный диапазонA1:ABC1B23:23FK4:F2B2:D10​

MOGZ ответил

Укажите правильный диапазон
A1:ABC1
B23:23F
K4:F2
B2:D10