помогите пожалуйста разоюраться с информатикой

yliay

Дата: Понедельник, 2011-11-07, 4:39 PM | Сообщение # 1

Студент

Группа: Пользователи

Сообщений: 22

Репутация: 0

Награды: 0

Замечания: 0%

Статус: Offline

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

Варианты ЕГЭ 2026 Дальний Восток
Егэ Дальний Восток 2026

Hellko

Дата: Понедельник, 2011-11-07, 9:36 PM | Сообщение # 2

Академик

Группа: Проверенные

Сообщений: 1340

Репутация: 362

Награды: 26

Замечания: 0%

Статус: Offline

Code

k:=0;
for x=1 to n do begin
      z:=0;
      for y=1 to m do z:=z+A[x,y];
      if(z>0) then inc(k);
end;
writeln(k);

A[n,m] - матрица mxn
x,y,z,k - integer;

Варианты ЕГЭ 2026 Дальний Восток
Егэ Дальний Восток 2026

Егэ 2012:
М: 92
Ф: 90

Сообщение отредактировал Hellko - Понедельник, 2011-11-07, 9:36 PM