Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Hugs
2 / 2 / 1
Регистрация: 25.10.2013
Сообщений: 24
#1

Вычислить сумму квадратов положительных чисел, лежащих ниже главной диагонали - Pascal ABC

25.10.2013, 02:06. Просмотров 790. Ответов 2
Метки нет (Все метки)

Помогите пожалуйста решить эти задачи, при возможности с небольшим объяснением, а то свой котелок не варит)!

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

Вычислить сумму чисел, не меньших заданного Z и лежащих ниже главной диагонали
Вычислить сумму чисел, не меньших заданного Z и лежащих ниже главной диагонали.

Вычислить сумму положительных чисел, лежащих в диапазоне от 2 до 8 на главной диагонали и выше её
Вычислить сумму положительных чисел, лежащих в диапазоне от 2 до 8 на главной...

Вычислить сумму чисел, принадлежащих промежутку (K, L) и лежащих на главной диагонали и выше ее
Здравствуйте, может ли кто-нибудь помочь в решении этих задач, пожалуйста.. ...

Найти сумму элементов матрицы, лежащих ниже главной диагонали
Program PP1; const n=4; type matrix= array of integer; var a:matrix;...

Подсчитать количество отрицательных чисел, лежащих на главной диагонали и ниже ее
Подсчитать количество отрицательных чисел, лежащих на главной диагонали и ниже...

Вычислить суммы элементов матрицы, лежащих выше, ниже и на главной диагонали
Вычислить суммы элементов матрицы, лежащих выше, ниже и на главной диагонали. ...

2
Samhain
690 / 565 / 413
Регистрация: 31.03.2013
Сообщений: 1,029
25.10.2013, 15:47 #2
Лучший ответ Сообщение было отмечено Hugs как решение

Решение

Hugs,
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
const m=20;
var a:array[1..m,1..m] of integer;
    n,i,j,s:integer;
begin
  repeat
    write('n = ');readln(n);
  until n<=m;
  s:=0;
  for i:=1 to n do
    for j:=1 to n do
    begin
      write('a[',i,',',j,'] = ');
      readln(a[i,j]);
      if (i>j)and(a[i,j]>0) then s:=s+sqr(a[i,j]);
    end;
  for i:=1 to n do
    begin
      for j:=1 to n do write(a[i,j]:4);
      writeln;
    end;
  writeln('s = ',s);
  readln
end.
1
Hugs
2 / 2 / 1
Регистрация: 25.10.2013
Сообщений: 24
26.10.2013, 21:27  [ТС] #3
Спасибо)
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.10.2013, 21:27
Привет! Вот еще темы с решениями:

Количество чисел, меньших заданного H и лежащих ниже главной диагонали матрицы
Program matrica; var N, i, j, p:integer; a: array of integer; begin...

Найти сумму и количество элементов в каждом столбце отрицательных и лежащих ниже главной диагонали
Помогите решить. Дан двумерный массив. Найти сумму и количество элементов в...

Подсчитать количество положительных чисел, лежащих выше главной диагонали
Подсчитать количество положительных чисел, лежащих выше главной диагонали.

Подсчитать количество положительных чисел, лежащих выше главной диагонали матрицы
Подсчитать количество положительных чисел, лежащих выше главной диагонали.


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

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

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