Определить суммы всех элементов матрицы, лежащих на диагоналях - Turbo Pascal

  1. Дана матрица 7x7. Определить суммы всех элементов матрицы, лежащих на диагоналях. Помогите сделать, пожалуйста! Заранее спасибо ОГРОМНОЕ!


textual

Код к задаче: «Определить суммы всех элементов матрицы, лежащих на диагоналях - Turbo Pascal»

const
  n = 3;
 
var
  j, i: integer;
  s: real;
  a: array [1..n, 1..n] of real;
 
begin
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a[i, j] := random * n;
      write(a[i, j]:8:2);
    end;
    writeln;
  end;
  s := 0;
  for i := 1 to n do
  begin
    s := s + a[i, i];
    s := s + a[i, n - i + 1];
  end;
  if Odd(n) then 
    s := s - a[n div 2 + 1][n div 2 + 1];
  writeln('Sum: ', s);  
end.

СДЕЛАЙТЕ РЕПОСТ

5   голосов, оценка 3.600 из 5



Похожие ответы
  1. Подскажите, наведите на путь, я реально не могу сообразить как она должна работать!! Танк в компьютерной игре может двигаться в одном из четырех направлений, обозначим их числами: 1 — север, 2 — восток, 3 — юг, 4 — запад. Направление движения изменяется тремя командами: 1 — поворот направо, 2 — поворот налево, 3 — поворот кругом. Пользователь вводит начальное направление движения, а затем ряд команд. Программа должна определять и печатать всякий раз новое направление. Выход из цикла — команда 0.

  1. Каждая из трех доярок надоила за год (365 дней) R1, R2,R3 литров молока. Определить, у какой доярки наибольший среднесуточный надой молока и вывести на экран ее номер.

  1. Круг вписан в квадрат со стороной А. Определить, превышает ли площадь круга заданную величину Х и вывести сообщение на экран.

  1. Как мы знаем, Владимир периодически посещает плавательный бассейн. При взгляде сверху бассейн представляет собой прямоугольник размера W × H; его юго-западный угол имеет координаты (0; 0), северо-восточный — (W; H). Владимир находился в точке с координатами (X; Y), когда прозвенел звонок, оповещающий об окончании сеанса. Теперь Владимиру нужно плыть к ближайшему бортику, чтобы выйти из бассейна. Помогите ему определить, в какую сторону следует плыть. Входные данные Первая строка содержит целые числа W и H (1 ≤ W, H ≤ 100) — соответственно длину и ширину бассейна. Первая строка содержит целые числа X и Y (0 ≤ X ≤ W, 0 ≤ Y ≤ H) — координаты точки, в которой находится Владимир. Выходные данные Выведите один из символов 'N' (север), 'E' (восток), 'S' (юг), 'W' (запад), соответствующий направлению до ближайшего бортика. Если подходящих ответов несколько, выведите любой из них.

  1. 1.Составить программу вычисления суммы квадратов чётных чисел из промежутка [a,b].

  1. 1) Написать функцию с параметрами, обеспечивающую вычисление суммы элементов, находящихся ниже главной диагонали.

  1. Написать программу на зыке Pascal для обработки матриц. Размерности матрицы и ее элементы должны вводиться с клавиатуры. Полученная матрица и другие элементы должны выводиться на экран. Определить произведение элементов в тех столбцах, которые не содержат элементов кратных 5.

  1. Программа, не могу понять как сделать Определить количество элементов равных нулю в заданной матрице А размерностью n*n.

  1. Даны │y│≤ 1; ε. Определить f(y) с точностью ε