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

@mitos2 · Регистрация: 30.11.2009

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

помогите решить такую задачу:создать матрицу A(N,M), где N<=10, M<=20. значение n и m задать по запросу с клавиатуры. определить количество положительных, отрицательных и нулевых элиментов в кажой строке. результат представить в виде одномерного массива B(N) компоненты которого явл. записи вида
type
col=record
plus,minus,nul:integer;
end;
вывести матрицу исходную и полученный массив

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
uses
  SysUtils;
  type
  kol=record
  plus,minus,nul:integer;
  end;
  const
  nmax=30;
  mmax=30;
  var
a:array [1..nmax,1..mmax] of integer;
b: array[1..NMAX] of kol;
i,j,n,m,kol1,kol2,kol3:integer;
 
begin
writeln ('vvedite n i m');
readln(n);
readln(m);
randomize;
for i:=1 to n do
 for j:=1 to m do
  a[i,j]:=Random(101)-Random(101);
writeln ('ishodnay matrica');
  for i:=1 to n do
   begin
  for j:=1 to m do
 write (a[i,j]:4,' ');
    writeln;
   end;
   readln;
   kol1:=0;
for i:=1 to n do
 for j:=1 to m do
 if  a[i,j]>0 then kol1:=kol1+1;
for i:=1 to 3 do
with b[n] do
kol1:=plus;
write (plus);
  readln;

@Puporev · 29.12.2009, 15:42

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
type
  kol=record
  plus,minus,nul:integer;
  end;
const
  nmax=10;
  mmax=20;
  var
a:array [1..nmax,1..mmax] of integer;
b: array[1..NMAX] of kol;
i,j,n,m:integer;
 
begin
repeat
writeln ('vvedite n 1-',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
writeln ('vvedite m 1-',mmax,' m=');
readln(m);
until m in [1..mmax];
randomize;
for i:=1 to n do
for j:=1 to m do
a[i,j]:=Random(5)-2;
writeln ('ishodnay matrica');
for i:=1 to n do
 begin
  for j:=1 to m do
  write (a[i,j]:4,' ');
  writeln;
  end;
readln;
for i:=1 to n do
 begin
  b[i].plus:=0;
  b[i].minus:=0;
  b[i].nul:=0;
  for j:=1 to m do
   begin
    if a[i,j]>0 then inc(b[i].plus);
    if a[i,j]<0 then inc(b[i].minus);
    if a[i,j]=0 then inc(b[i].nul);
   end;
 end;
writeln('massiv kolichestv:');
writeln('         poloz  otric  nuli');
for i:=1 to n do
 begin
  write('stroka ',i,'  ');
  with b[i] do write(plus:2,minus:6,nul:6);
  writeln;
 end;
readln
end.

Новые блоги и статьи Все статьи Все блоги /
Реализация Domain-Driven Design с Java Javaican 20.05.2025 DDD — это настоящий спасательный круг для проектов со сложной бизнес-логикой. Подход, предложенный Эриком Эвансом, позволяет создавать элегантные решения, которые точно отражают реальную предметную. . .	Возможности и нововведения C# 14 stackOverflow 20.05.2025 Выход версии C# 14, который ожидается вместе с . NET 10, приносит ряд интересных нововведений, действительно упрощающих жизнь разработчиков. Вы уже хотите опробовать эти новшества? Не проблема! Просто. . .	Собеседование по Node.js - вопросы и ответы Reangularity 20.05.2025 Каждому разработчику рано или поздно приходится сталкиватся с техническими собеседованиями - этим стрессовым испытанием, где решается судьба карьерного роста и зарплатных ожиданий. В этой статье я. . .	Cython и C (СИ) расширения Python для максимальной производительности py-thonny 20.05.2025 Python невероятно дружелюбен к начинающим и одновременно мощный для профи. Но стоит лишь заикнуться о высокопроизводительных вычислениях — и энтузиазм быстро улетучивается. Да, Питон медлительнее. . .	Безопасное программирование в Java и предотвращение уязвимостей (SQL-инъекции, XSS и др.) Javaican 19.05.2025 Самые распространёные векторы атак на Java-приложения за последний год выглядят как классический "топ-3 хакерских фаворитов": SQL-инъекции (31%), межсайтовый скриптинг или XSS (28%) и CSRF-атаки. . .
Введение в Q# - язык квантовых вычислений от Microsoft EggHead 19.05.2025 Microsoft вошла в гонку технологических гигантов с собственным языком программирования Q#, специально созданным для разработки квантовых алгоритмов. Но прежде чем погружаться в синтаксические дебри. . .	Безопасность Kubernetes с Falco и обнаружение вторжений Mr. Docker 18.05.2025 Переход организаций к микросервисной архитектуре и контейнерным технологиям сопровождается лавинообразным ростом векторов атак — от тривиальных попыток взлома до многоступенчатых кибератак, способных. . .	Аугментация изображений с Python AI_Generated 18.05.2025 Собрать достаточно большой датасет для обучения нейронной сети — та ещё головная боль. Часами вручную размечать картинки, скармливать их ненасытным алгоритмам и молиться, чтобы модель не сдулась при. . .	Исключения в Java: советы, примеры кода и многое другое Javaican 18.05.2025 Исключения — это объекты, созданные когда программа сталкивается с непредвиденной ситуацией: файл не найден, сетевое соединение разорвано, деление на ноль. . . Список можно продолжать до бесконечности. . . .	Как сделать SSO (Single Sign-On) в C# приложении stackOverflow 18.05.2025 SSO — это механизм, позволяющий пользователю пройти аутентификацию один раз и получить доступ к нескольким приложениям без повторного ввода учетных данных. Вы наверняка сталкивались с ним, когда. . .

Опции темы