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

@DASHA_93 · Регистрация: 07.07.2013

Author24 — интернет-сервис помощи студентам

Помогите пожалуйста решить вот такую задачу. В целочисленной матрице размера N*M найти сумму всех отрицательных элементов, сумма индексов которых не менее К.

@Turbal · 10.07.2013, 19:49

Pascal

Program masivNxM;
uses crt;
const n = 5;
      m = 6;
var A: Array[1..n,1..m] of Integer;
    i,j,K: Byte;
    Sum: Integer;
begin
Randomize;
WriteLn('Ìàñèâ(',n,',',m,'):');
for i:=1 to n do
    begin
    for j:=1 to m do
        begin
        A[i,j]:=Random(19)-9;
        Write(A[i,j]:3,' ');
        end;
    WriteLn;
    end;
Write('Ââåäèòå K: ');
ReadLn(K);
for i:=1 to n do
    for j:=1 to m do
        if (i+j>=K) and (A[i,j]<0) then Sum:=Sum+A[i,j];
WriteLn;
WriteLn('Ñóìà îòðèöàëåëüíûõ åëåìåíòîâ, ñóììà èíäåêñîâ êîòîðûõ íå ìåíåå K = ',Sum);
end.

@DASHA_93 0 / 0 / 0 Регистрация: 07.07.2013 Сообщений: 72
		1
	Найти сумму всех отрицательных элементов, сумма индексов которых не менее К 10.07.2013, 19:01. Показов 1195. Ответов 1 Метки нет (Все метки) Помогите пожалуйста решить вот такую задачу. В целочисленной матрице размера N*M найти сумму всех отрицательных элементов, сумма индексов которых не менее К. 0

	10.07.2013, 19:49

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

Решение