Найти сумму указанных элементов матрицы - Turbo Pascal

  1. Для квадратного массива размера nxn n-нечетное, найти сумму указанных элементов, указаные элементы заменить на 0. Вывести новый массив


textual

Код к задаче: «Найти сумму указанных элементов матрицы - Turbo Pascal»

program pr1;
 
uses
  crt;
 
var
  a: array [1..100, 1..100] of integer;
  n, i, j, sum: integer;
 
begin
  clrscr;
  randomize;
  writeln('n=');
  readln(n);
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a[i, j] := random(10);
      write(a[i, j]:8);
    end;
    writeln;
  end;
 
  sum:=0;
  for i:=1 to n div 2 do
  begin
    sum:=sum+a[i,i]; // диагональные элементы
    a[i,i]:=0;
  end;
  
  for i:=n div 2 + 1 to n do  // остальные закрашенные
    for j:=n div 2 + 1 to n do
    begin
      sum:=sum+a[i,j];
      a[i,j]:=0;
    end;
  
 
  writeln('sum=', sum);
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      write(a[i, j]:4);
    end;
    writeln;
  end;
  readln;
end.

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

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



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

  1. Пусть дана вещественная матрица размером n*m. Найдите среднее арифметическое наибольшего и наименьшего значений её элементов, расположенных ниже главной диагонали.- это условие. Напиши пожалуйста программу!

  1. Ввести с клавиатуры одномерный массив из 5 чисел , подсчитать сумму элементов больше нуля и вывести результат на экран монитора.

  1. Ввести с клавиатуры двумерный массив из 9 чисел, подсчитать сумму элементов всего массива

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

  1. Произвольно заданы три одномерных массива. Сформировать новый массив, состоящий из десяти элементов с наибольшими значениями исходных массивов. Помогите пожалуйста! Нужно написать программу с while и repeat!!!(отдельные)

  1. Доброго времени суток, хотел бы попросить у Вас помощи в решение задач в turbo pascal:Разработка в среде Turbo Pascal программы формирования и обработки элементов одномерного массива: 1) Сформируйте двухмерный целочисленный массив S(4x9), используя генератор случайных чисел на интервале (-10, 6). Элементы массива вывести на экран в виде матрицы. 2) Преобразуйте массив S в одномерный массив X. Полученный массив вывести на экран. 3) Вычислите среднегеометрическое значение каждых третьих элементов последней четверти массива X. 4) Среди четных по значению элементов массива X определите наименьший. 5) упорядочить принадлежащие интервалу [a/2;b/2] элементы первой половины массива X по возрастанию квадратов значений. Заранее благодарен за помощь.

  1. 2.Дана целочисленная матрица размерности (n ×n). Найти номер столбца, в котором нет отрицательных элементов.

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

  1. Найти номер первого из столбцов, не содержащих элементов, меньших s. (матрица)