Статистика
Всего в нашей базе более 4 327 664 вопросов и 6 445 979 ответов!

дана целочисленная матрица 5 на 5. Определить положительные элементы на побочной диагонали.(Паскаль)

10-11 класс

Iylia2001 08 сент. 2016 г., 0:11:21 (7 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Arkadiypetrosy
08 сент. 2016 г., 2:40:08 (7 лет назад)

const
    n = 5;   // Размер матрицы

var
   i, e, r: Integer;
   m : array [1..n, 1..n] of Integer;
begin

 

   for i:= 1 to n do
      for e:= 1 to n do
      begin
         //m[i, e] := Random(101) - 50;                // Заполнение случайными числами
         Write('m[',i,',',e,'] = '); Readln(m[i, e]);    // Ручной ввод матрицы
      end;

   r := n;
   for i := 1 to n do
   begin


      if m[i, r] >= 0 then
         Write(m[i, r], ' ');

 

      dec(r);
   end;

   Readln;
end.

Ответить

Читайте также

ПОЖАЛУЙСТА! НУЖНА ПОМОЩЬ!!!!

Дана матрица А (4, 5)
2, 3, -5, -10, 7
4, -10, -3, 2, 4
5, -2, -7, 11, -13
18, 19, -2, -4, -7
Из нее образовать две матрицы: в одной оставить все отрицательные элементы матрицы А (на месте положительных элементов поставить ноль), в другой оставить все положительные элементы (на месте отрицательных поставить ноль).
НАПИСАТЬ ПРОГРАММУ в VBA excel и скинуть сюда документом

ПОМОГИТЕ!!!!!

Дана матрица А (4, 5)
2, 3, -5, -10, 7
4, -10, -3, 2, 4
5, -2, -7, 11, -13
18, 19, -2, -4, -7
Из нее образовать две матрицы: в одной оставить все отрицательные элементы матрицы А (на месте положительных элементов поставить ноль), в другой оставить все положительные элементы (на месте отрицательных поставить ноль).
НАПИСАТЬ ПРОГРАММУ в VBA excel

Всем Привет!1. В текстовом файле хранятся квадратные целочисленные матрицы

порядка n. Преобразовать
файл, удалив из каждой матрицы элементы побочной диагонали.



Вы находитесь на странице вопроса "дана целочисленная матрица 5 на 5. Определить положительные элементы на побочной диагонали.(Паскаль)", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.