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

Составить программу для подсчёта суммы положительных элементов квадратной таблицы В, состоящей из N×N целых чисел

13.12.2011, 17:56. Просмотров 974. Ответов 1
Метки нет (Все метки)

Составить программу для подсчёта суммы положительных элементов квадратной таблицы В, состоящей из N×N целых чисел, расположенных на побочной диагонали.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.12.2011, 17:56
Ответы с готовыми решениями:

Составить программу для вычисления суммы элементов массива из 12 целых чисел
Составить программу для вычисления суммы элементов массива из 12 целых чисел. Массив вводится с...

Составить программу для подсчёта суммы отрицательных элементов массива +2 задачи.
Привет всем)))Помогите пожалуйста)))Нужны программы 1.для подсчёта суммы отрицательных элементов...

Составить программу для нахождения наименьшего из положительных элементов массива из 20 целых чисел диапазона (-50;50)
составить программу для нахождения наименьшего из положительных элементов массива из 20 целых чисел...

Написать программу подсчёта суммы положительных чисел введённых с клавиатуры
Задание 3. Написать программу подсчёта суммы положительных чисел введённых с клавиатуры. Как...

Составить Алгоритм для вычисления суммы первых n целых положительных четных чисел
Составить Алгоритм (тестовое описание ,и написать метод решения) для вычисления суммы первых n...

1
versa4e
trainspotting
1083 / 483 / 384
Регистрация: 11.11.2010
Сообщений: 773
13.12.2011, 18:02 2
Лучший ответ Сообщение было отмечено dioris как решение

Решение

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
30
const
  nmax=100;
type
  bi_mas=array[1..nmax,1..nmax] of integer;
var
  b:bi_mas;
  i,j,n,s:integer;
begin
  randomize;
  repeat
    write('Poryadok matritsy, ne bolee ',nmax,': ');
    readln(n);
  until n in [1..nmax];
  writeln('Matritsa:');
  for i:=1 to n do
    for j:=1 to n do
      begin
        b[i,j]:=-15+random(30);
        write(b[i,j]:4);
        if j=n then
          writeln;
      end;
  writeln;
  s:=0;
  for i:=1 to n do
    for j:=1 to n do
      if (j=n-i+1) and (b[i,j]>0) then
        inc(s,b[i,j]);
  write(s);
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.12.2011, 18:02

Составить программу для подсчета суммы положительных элементов квадратной таблицы В, состоящей из N × N целых чисел
Составить программу для подсчета суммы положительных элементов квадратной таблицы В, состоящей из N...

Составить программу для подсчета среднего арифметического положительных элементов прямоугольной таблицы В, состоящей из MN целых чисел
Составить программу для подсчета среднего арифметического положительных элементов прямоугольной...

Составить программу для подсчёта суммы чётных элементов двумерной таблицы А размером m×n. Использовать динамический массив.
Составить программу для подсчёта суммы чётных элементов двумерной таблицы А размером m×n....


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

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

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