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

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

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

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

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

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

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

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

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

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

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 writeln ('Введите...

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


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

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

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