Определить количество положительных и отрицательных элементов матрицы

@fvf78 · Регистрация: 31.10.2013

Author24 — интернет-сервис помощи студентам

Помогите плиз написать программу : Определить количество положительных и отрицательных элементов матрицы А (10х15). (Я в паскале полный ноль, а прогу надо срочно)
Всем заранее спасибо !!!

@Булат Шакиров · 01.11.2013, 21:26

For i:=1 to n do
For j:=1 to m do
Begin
If a[i,j]>0 then
K:=k+1;
If a[i,j]<0 then
N:=n+1;
End;

@fvf78 · 01.11.2013, 22:39 **[ТС]**

А можно полностью программу , а то я в паскале не шарю.

@Соловьёв_Егор · 04.11.2013, 18:01

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var n,m,i,j,p,o:integer;
a:array [1..100,1..100] of integer;
begin
n:=10;
m:=15;
o:=0;
p:=0;
for i:=1 to n do
  begin
    for j:=1 to m do
      begin
        a[i,j]:=random(50)-14;
        write(a[i,j]:4);
        if a[i,j]<0 then
          o:=o+1
        else if a[i,j]>0 then
          p:=p+1;
      end;
    writeln;
  end;
writeln('В матрице ',o,' отрицательных чисел и ',p,' положительных.');
end.

В данном коде ноли вообще не учитываются.

Новые блоги и статьи Все статьи Все блоги /
Вопросы на собеседованиях по микросервисам ArchitectMsa 27.03.2025 Работодатели ищут не просто разработчиков, знающих базовые концепции, а специалистов, разбирающихся в тонкостях масштабирования, отказоустойчивости и производительности. Сейчас на первый план выходят. . .	Взаимодействие Python с REST API py-thonny 27.03.2025 REST API - это архитектурный стиль взаимодействия компонентов распределённого приложения в сети. Python располагает функциональным набором инструментов для работы с REST API и основная библиотека для. . .	sshd restrictions, ssh access limitations jigi33 26.03.2025 sshd restrictions \| ssh access limitations рестрикции доступа на сервер sshd статья: https:/ / www. golinuxcloud. com/ restrict-allow-ssh-certain-users-groups-rhel	Компиляция C++ с Clang API NullReferenced 24.03.2025 Компиляторы обычно воспринимаются как черные ящики, которые превращают исходный код в исполняемые файлы. Мы запускаем компилятор командой в терминале, и вуаля — получаем бинарник. Но что если нужно. . .	Многопоточное программирование в C#: Класс Thread UnmanagedCoder 24.03.2025 Когда запускается приложение на компьютере, операционная система создаёт для него процесс - виртуальное адресное пространство. В C# этот процесс изначально получает один поток выполнения — главный. . .
SwiftUI Data Flow: Передача данных между представлениями mobDevWorks 23.03.2025 При первом знакомстве со SwiftUI кажется, что фреймворк предлагает избыточное количество механизмов для передачи данных: @State, @Binding, @StateObject, @ObservedObject, @EnvironmentObject и другие. . . .	Моки в Java: Сравниваем Mockito, EasyMock, JMockit Javaican 23.03.2025 Как протестировать класс, который зависит от других сложных компонентов, таких как базы данных, веб-сервисы или другие классы, с которыми и так непросто работать в тестовом окружении? Для этого и. . .	Архитектурные паттерны микросервисов: ТОП-10 шаблонов ArchitectMsa 22.03.2025 Популярность микросервисной архитектуры объясняется множеством важных преимуществ. К примеру, она позволяет командам разработчиков работать независимо друг от друга, используя различные технологии и. . .	Оптимизация рендеринга в Unity: Сортировка миллиона спрайтов GameUnited 22.03.2025 Помните, когда наличие сотни спрайтов в игре приводило к существенному падению производительности? Время таких ограничений уходит в прошлое. Сегодня геймдев сталкивается с задачами совершенно иного. . .	Образование и практика Igor3D 21.03.2025 Добрый день А вот каково качество/ эффективность ВУЗовского образования? Аналитическая геометрия изучается в первом семестре и считается довольно легким курсом, что вполне справедливо. Ну хорошо,. . .

@fvf78 0 / 0 / 0 Регистрация: 31.10.2013 Сообщений: 9

	Определить количество положительных и отрицательных элементов матрицы 31.10.2013, 19:20. Показов 1269. Ответов 3 Метки нет (Все метки) Помогите плиз написать программу : Определить количество положительных и отрицательных элементов матрицы А (10х15). (Я в паскале полный ноль, а прогу надо срочно) Всем заранее спасибо !!! 0

@Булат Шакиров Заблокирован
	01.11.2013, 21:26
	For i:=1 to n do For j:=1 to m do Begin If a[i,j]>0 then K:=k+1; If a[i,j]<0 then N:=n+1; End; 1

@fvf78 0 / 0 / 0 Регистрация: 31.10.2013 Сообщений: 9
	01.11.2013, 22:39 [ТС]
	А можно полностью программу , а то я в паскале не шарю. 0

Опции темы