Информатика, опубликовано 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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на