Регистрация
mastervydy
03.04.2020 01:33
Информатика
Есть ответ 👍

У чому полягає особливість пошуку першого елемента лінійної таблиці, який відповідає заданій умові?

163
354
Посмотреть ответы 1

Ответы на вопрос:

tima3002
tima3002
4,5(41 оценок)
Var       n, m, sum, i, j: integer;       a: array [1..10000] of array [1..10000] of integer; begin       read(n, m);       for i : = 1 to n do             for j : = 1 to m do read(a[i][j]);       for i : = 1 to n do             for j : = 1 to m do                   if (a[i][j] > 0) then sum : = sum + a[i][j];       write(sum); end.  но  для времени и  сил  можно не создавать массив: var       n, m, sum, el, i, j: integer; begin       read(n, m);       for i : = 1 to n do             for j : = 1 to m do begin                    read(el);                   if (el > 0) then sum : = sum + el;             end;       write(sum); end.

Популярно: Информатика