Вопрос № 71137: Здраствуйте, товарищи!!! Помогите решить 2 задачки. Времени в обрез!!!! Зараннее коллосальное спасибо!!!!!!!!!!!!!!!!!!!!!!
Вычислить и запомнить суммы положительных элементов каждой строки матриц A(10,20), B(15,10).
Вычислить сум...
Вопрос № 71.137
Здраствуйте, товарищи!!! Помогите решить 2 задачки. Времени в обрез!!!! Зараннее коллосальное спасибо!!!!!!!!!!!!!!!!!!!!!!
Вычислить и запомнить суммы положительных элементов каждой строки матриц A(10,20), B(15,10).
Вычислить суммы элементов верхней треугольной матрицы для матриц A(10,10) и B(15,15)
Отправлен: 16.01.2007, 06:06
Вопрос задал: Lumen (статус: Посетитель)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Coupler
Здравствуйте, Lumen!
Решение в приложении. Условие второй задачи я понял так: просуммировать все элементы, лежащие выше главной диагонали матриц :) Если это не то - уточните, пожалуйста.
Приложение:
Ответ отправил: Coupler (статус: Студент)
Ответ отправлен: 16.01.2007, 08:55
Отвечает: Трогладит
Здравствуйте, Lumen
ответ на задачу 1
var
i, j:integer;
A,B:array[1..20,1..20] of real;
sA, sB:real;
begin
{Организуем ввод массивов}
sA:=0;
for i:=1 to 10 do
for j:=1 to 20 do
if A[i,j]>0 then sA:=sA+A[i,j];
sB:=0;
for i:=1 to 15 do
for j:=1 to 10 do
if B[i,j]>0 then sB:=sB+B[i,j];
end;
Вторая задача решается аналогично только J 1 до i.
Ответ отправил: Трогладит (статус: 1-ый класс)
Ответ отправлен: 16.01.2007, 11:51
