сервис вопросов и ответовДана вещественная матрица размерности n*m. Вывести номера строк, содержащих больше положительных элементов чем отрицательных.
10-11 класс|
|
Решите пожалуйста на языке Pacal
Geymery
24 дек. 2014 г., 4:58:15 (9 лет назад)
Valera153
24 дек. 2014 г., 5:41:45 (9 лет назад)
Program strok;
uses crt;
const
m=3;
n=4;
var i,j,pos,neg: integer;
a:array[1..n, 1..m] of real;
begin
for i:=1 to n do
for j:=1 to m do
read(a[i,j]);
for i:= 1 to n do begin
neg:= 0;
pos:= 0;
for j:= 1 to m do begin
if a[i,j] < 0 then Inc(neg)
else Inc(pos);
end;
if pos > neg then
Write(IntToStr(i),' ');
end;
ReadLn;
end.
Ответить
Другие вопросы из категории
Определить сумму наибольшего и второго по
значению наименьшего элементов. Паскаль. Не через массивы.
У меня во внешнем файле есть последовательность из отрицательных и положительных чисел!
1, 2,-3, 4, 5, -6, 7, 8, -9, 10!
Наибольшее число 10, наименьшее число -9, второе по значению наименьшее -6! Я нашел наименьшее и наибольшее, но не пойму как найти второе по значению наименьшее, помогите)
Читайте также
Дан двумерный массив
размерностью n х m,
заполненный случайными числами. Определить, есть ли в данном массиве строка,
содержащая больше положительных элементов,
чем отрицательных. Ответ: «Есть» или «Нет».
Если можно решите попроще, каждая отдельная операции через подпограмму
Дана матрица размерностью nxn найти
Дана матрица размерностью nxn найти минимальный элемент среди элементов расположенных над главной диагональю матрицы. Найти квадрат разности среди арифметических значений элементов матрицы ,находящихся ниже и выше главной диагонали
Дана вещественная квадратная матрица А порядка n. Найти среднее
арифметическое среди положительных элементов матрицы, находящихся на
главной и побочной диагоналях. Выдать сообщение, если таких элементов нет.
Вы находитесь на странице вопроса "Дана вещественная матрица размерности n*m. Вывести номера строк, содержащих больше положительных элементов чем отрицательных.", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.