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

@Appolinariya · Регистрация: 09.07.2014

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

Составить программу, в которой сформировать двумерный целочисленный массив случайных чисел А[1..50, 1..50], и подсчитать количество отрицательных и положительных чисел в нем.

@Dax · 09.07.2014, 18:27

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
progRAM MASSIV;
USES CRT;
var K,K1, i,j,m,n:integer;
x:array[1..50,1..50] of integer;
begin
read(n,m);
for I:=1 to n do
for J:=1 to m do
x[i,j]:=random(10);
K:=0;
for I:=1 to n do
for J:=1 to m do
IF X[I,J]>0 THEN INC(K);
for I:=1 to n do
for J:=1 to m do
IF X[I,J]<0 THEN INC(K1);
for I:=1 to n do begin
for J:=1 to m do
write (x[i,j]:5);
writeln;
end;
WRITELN(K);
WRITELN(K1);
end.

считает положительные элементы

@erl27 · 09.07.2014, 18:31

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
const
  n = 50;
  m = 50;
 
var
  A: array[1..n, 1..m] of integer;
  i, j: byte;
  Q1, Q2: word;
  
  
begin
  cls;
  Q1 := 0;
  Q2 := 0;
  writeln('Вводим двумерный массив ', n, 'x', m, ':');
  writeln;
  randomize;
  for i := 1 to n do begin
    for j := 1 to n do begin
      a[i, j] := -50 + random(100);
      write(a[i, j]:4);
       if a[i, j] < 0 then inc(Q1)
       else
       if a[i, j] > 0 then inc(Q2)
    end;
    writeln
  end;  
  writeln;
  writeln('Количество отрицательных элементов: ', Q1);
  writeln('Количество положительных элементов: ', Q2)
end.

@Dax · 09.07.2014, 18:48

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
progRAM MASSIV;
USES CRT;
var K,K1, i,j,m,n:integer;
x:array[1..50,1..50] of integer;
begin
read(n,m);
for I:=1 to n do
for J:=1 to m do
x[i,j]:=random((41)-20);
//read(x[i,j]);  //проверка отриц.чисел
K:=0;
k1:=0;
for I:=1 to n do
for J:=1 to m do
IF X[I,J]>0 THEN INC(K);
for I:=1 to n do
for J:=1 to m do
IF X[I,J]<0 THEN INC(K1);
for I:=1 to n do begin
for J:=1 to m do
write (x[i,j]:5);
writeln;
end;
WRITELN(K);
WRITELN(K1);
end.

@APALoff · 09.07.2014, 22:23

Не по теме:

Dax, Вы оптимизацией кода не занимаетесь из принципа или по религиозным соображениям?

Добавлено через 10 минут

Сообщение от Dax

Pascal
1
2
3
4
5
6
7
8
9
10
11
for I:=1 to n do
for J:=1 to m do
IF X[I,J]>0 THEN INC(K);
for I:=1 to n do
for J:=1 to m do
IF X[I,J]<0 THEN INC(K1);
for I:=1 to n do begin
for J:=1 to m do
write (x[i,j]:5);
writeln;
end;

превращается в

Pascal
1
2
3
4
5
6
7
for I:=1 to n do
 for J:=1 to m do
 Begin
   IF X[I,J]>0 THEN INC(K);
   IF X[I,J]<0 THEN INC(K1);
   writeLN(x[i,j]:5);
 end;

@Dax · 09.07.2014, 22:57

Соображение самое простое -программа работать должна, я знаю как этого достичь, а время не всегда есть, чтоб тратить его на поиски совершенства, замечание учту, спасибо.

@Svager · 09.07.2014, 23:15

Сообщение от Dax

чтоб тратить его на поиски совершенства

пфф...Вы пишете два цикла , и две строки условия,все...какие поиски совершенства?

@Dax · 09.07.2014, 23:27

Согласен, код надо делать читабельней и проще, учту спасибо.
А насчет поисков - есть много людей, основная задача которых не написать не работающую прпрограмму, а программу в 2 строки.
Пишу чтоб работало (из принципа), а если код можно оптимизировать-красота!

Новые блоги и статьи Все статьи Все блоги /
Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .

@Appolinariya 0 / 0 / 0 Регистрация: 09.07.2014 Сообщений: 62

	Подсчитать количество отрицательных и положительных чисел в двумерный массиве 09.07.2014, 17:47. Показов 8865. Ответов 7 Метки нет (Все метки) Составить программу, в которой сформировать двумерный целочисленный массив случайных чисел А[1..50, 1..50], и подсчитать количество отрицательных и положительных чисел в нем. 0

@Dax 1356 / 653 / 207 Регистрация: 23.03.2014 Сообщений: 3,057
	09.07.2014, 22:57
	Соображение самое простое -программа работать должна, я знаю как этого достичь, а время не всегда есть, чтоб тратить его на поиски совершенства, замечание учту, спасибо. 0

@Dax 1356 / 653 / 207 Регистрация: 23.03.2014 Сообщений: 3,057
	09.07.2014, 23:27
	Согласен, код надо делать читабельней и проще, учту спасибо. А насчет поисков - есть много людей, основная задача которых не написать не работающую прпрограмму, а программу в 2 строки. Пишу чтоб работало (из принципа), а если код можно оптимизировать-красота! 0

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

Решение