uses crt;
const n=3; m=4;
type mas=array [1..n, 1..m] of integer;
var a: mas; i,j,s,k: integer;
 
procedure vvod (var a: mas; n,m: integer);
var i,j: integer;
begin
for i:=1 to n do
for j:=1 to m do
read (a[i,j]);
end;
 
function summa (a: mas; n,m: integer): integer;
var i,j,s,k: integer;
begin
for i:=1 to n do
begin
k:=0;
for j:=1 to m do
if a[i,j]<0 then k:=i;
if k=i then
for j:=1 to m do
s:=s+a[i,j];
end;
summa:=s;
end;
 
begin
clrscr;
vvod (a,n,m);
s;=summa (a,n,m);
writeln ('s=', s);
readkey
end.

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

26.05.2011, 16:24

Ответы с готовыми решениями:

Найти сумму элементов в тех строках, которые содержат хотя бы один отрицательный элемент
нужно найти сумму элементов в тех строках, которые содержат хотя бы один отрицательный элемент. не...

Найти сумму элементов в тех строках которые, содержат хотя бы один отрицательный элемент
Доброго времени суток, очень нужна помощь по одной задачке: Для заданной матрицы размером 8 на 8...

Найти сумму элементов в тех строках, которые содержат хотя бы один отрицательный элемент
Саму матрицу как-то смог создать, но.. Нужно найти сумму элементов в тех строках, которые содержат...

Найти сумму элементов в тех строках, которые содержат хотя бы один отрицательный элемент
Не могу написать программу Условие:Дана целочисленная квадратная матрица. Найти сумму элементов...

	26.05.2011, 16:24

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

26.05.2011, 16:24

Помогаю со студенческими работами здесь

Найти сумму элементов в тех строках, которые содержат хотя бы один отрицательный элемент
1) В одномерном массиве состоящем из n целых элементов, вычислить: а) номер максимального...

Найти сумму элементов в тех строках, которые содержат хотя бы один отрицательный элемент
Снова нужна ваша помощь! "Для заданной матрицы размером 8 x 8 найти такие k, при которых k-я строка...

Найти сумму элементов в тех строках, которые содержат хотя бы один отрицательный элемент
Добрый день. Помогите, пожалуйста, с написанием программы. Вот само задание: Для заданной...

Найти сумму элементов в тех строках, которые содержат хотя бы один отрицательный элемент
1) для заданной матрицы размером 8х8 найти k , что k-я строка матрицы совпадает с k-v столбцом (...

Найти сумму элементов в тех столбцах,которые содержат хотя бы один отрицательный элемент
Характеристикой столбца целочисленной матрицы назовём сумму модулей его отрицательных нечётных...

Найти сумму элементов в тех столбцах, которые содержат хотя бы один отрицательный элемент
Найти сумму элементов в тех столбцах, которые содержат хотя бы один отрицательный элемент. ...

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

Или воспользуйтесь поиском по форуму:

Наверх