Определить, каких элементов в матрице больше, отрицательных или положительных - Turbo Pascal
Формулировка задачи:
Дана матрица Т(5,7) действительных чисел. Определить, каких элементов в ней больше, отрицательных или положительных.
Решение задачи: «Определить, каких элементов в матрице больше, отрицательных или положительных»
textual
Листинг программы
if (coutot > coutp)
then writeln('Больше всего отрицательных элементов')
else if (coutot < coutp)
then writeln('Больше всего положительных элементов')
else writeln('Положительных и отрицательных элементов поровну')
end.