Информатика, опубликовано 2018-08-22 23:58:37 by Гость

Pascal. Составить программу для вычисления количества положительных элементов матрицы Q(4х9).

Ответ оставил Гость

Program Podschet;
var a, i, j ,ans: integer;
begin writeln(Введите матрицу 4х9);
ans := 0;

for i := 1 to 4 do for j := 1 to 9 do begin read(a); if (a > 0) then inc(ans); end;
writeln(ans);end.

Не нашли ответа?

Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.