Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
BOT
44 / 0 / 1
Регистрация: 26.10.2011
Сообщений: 115
1

Двумерные массивы. Преобразование и построение матриц.

01.11.2011, 20:43. Просмотров 988. Ответов 1
Метки нет (Все метки)

Вычислить сумму и число положительных элементов матрицы A[N,N], находящихся над главной диагональю.

Программу надо написать в Pascal ABC. Опишите как можно подробнее))) Заранее спасибо)))
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.11.2011, 20:43
Ответы с готовыми решениями:

двумерные массивы, построение матрицы
1)В матрице X(m, m) найти максимальный диагональный элемент и вывести всю...

Турбопаскаль.Двумерные массивы.Из двух матриц составить третью предвариельно сортируя перед занесением в 3 матрицу.
Здравствуйте уважаемые господа разбирающиеся в паскале прошу вас помочь с...

Двумерные массивы
Сформировать матрицу A при помощи произвольно заданной матрицы B.

Двумерные массивы
Дан двумерный массив. Вывести на экран все элементы пятой строки массива

двумерные массивы
помогите в решении: 1) Задан массив целых случайных чисел, принадлежащих...

1
КонецСвета
Почетный модератор
7929 / 3900 / 2464
Регистрация: 30.10.2011
Сообщений: 5,379
04.11.2011, 14:27 2
Лучший ответ Сообщение было отмечено BOT как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
uses crt;
var  a:array [1..10,1..10] of integer;
     i, j, n, s, k: integer;
begin
     write ('n=');        {Считываю в память размер матрицы}
     readln (n);
     for i:=1 to n do        {с помощью циклов считываю в память каждый элемент массива}
         for j:=1 to n do
             begin
                  write ('a[',i,',',j,']=');
                  readln(a[i,j]);
             end;
  for i:=1 to n do           {Вывжу  элементы  массива на экран}
    begin
      for j:=1 to n do
            write(a[i,j]:4);
      writeln;
    end;
  s:=0; k:=0;                {изначально сумма и количество положительных элементов равна 0}
  for i:=1 to n do              {задаю цикл перебора всех элементов массива}
     for j:=1 to n do
        if   i<j  then             {проверяю условие: если элемент находится над главной диагональю, то}
             if a[i,j]>0 then        {проверяю условие: если этот элемент положителен, то}
                begin
                     s:=s+a[i,j];       {прибавляю элемент к имеющейся сумме}
                     inc(k);                {увеличиваю количество на 1}
                end;
  writeln ('Сумма положительных элементов над главной диагональю = ',s, ', количество = ',k);
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.11.2011, 14:27

Двумерные массивы
Сформировать квадратную матрицу порядка n по заданному образцу: ...

Двумерные массивы
n 0 0 … 0 0 0 0 n-1 0 … 0 0 0 0 0 n-2 … 0 0 0 … … … … … … … 0 0 0 … 0 2 0...

двумерные массивы
Дан двумерный массив размером n*m заполненный случайным образом. 1. заменить...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru