Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Pascal Как добавить счетчик для первых 5 членов последовательности, кратные 3 Последовательность строится так: =1, =3,…., = - для каждого n>2. Найти первые 5 членов последовательности, кратные 3. var i,a,a1,a2,b,a3:integer; begin a1:=1; a2:=3; i:=1; b:=0; while b<>3 do begin https://www.cyberforum.ru/ pascal/ thread1885986.html Определить среднее арифметическое элементов матрицы, переставить строки по убыванию числа ненулевых элементов Pascal
Дана матрица А(m, n), 1<(m, n)<10. Определить среднее арифметическое элементов матрицы. Переставить строки по убыванию числа ненулевых элементов в строках.
Pascal Максимальный и минимальный элемент массива Дана квадратная матрица диагоналями разбита на 4 треугольника нужно найти максимум в верхнем и минимум в нижнем треугольниках. const n=5; type ujas = array of integer; var i,j,p,k,o: integer; x:ujas; begin writeln('Начальная матрица'); for i:=1 to n do begin https://www.cyberforum.ru/ pascal/ thread1885914.html Pascal Cортировать последовательность методом пузырька. Имеется случайная! последовательность чисел. Напишите программу, которая сортирует данную последовательность методом пузырька. Примеры входных и выходных данных: Входные данные из input.txt 123 412 5112 12 251 Выходные данные(можно на экран): 12 123 251 412 5112 Пожалуйста, ребят https://www.cyberforum.ru/ pascal/ thread1885776.html
Pascal Создать опрос
Нужно создать программу, которая содержи 5 вопрос с 3 вариантами ответов. Выбор вариант должен производиться перемещение курса стрелочками.Ничего не понимаю как сделать, помогите плиз))
Pascal Функция Format https://www.cyberforum.ru/ pascal/ thread1885557.html
Нигде не нашел строковый формат этой функции. Только на С# String.Format("{0,10}:{1}","Создать файл ?","да"); //Создать файл ?:да String.Format("{0,-10}:{1}", "Создать файл ?","да"); // Создать файл ? :да String.Format("{0:00000}", 15); // "00015" String.Format("{0:00000}", -15); // "-00015" String.Format("{0,5}",...
Pascal Портировать код с C++ на Паскаль Портировать код на паскаль string s; int i, g, h, j, k, x, y, d, z, *b,af,gaf; x = y = 0; getline(cin, s); h = s.length(); b = new int; for (i = 0;i < h;i++) { if (s == '(') https://www.cyberforum.ru/ pascal/ thread1885494.html Составить процедуру определяющую, что все элементы одномерного массива упорядочены по убыванию их значений Pascal
program rf; uses crt; type mas = array of integer; var a, b: mas; i, j, m, n, L: integer;
Pascal Дана прямоугольная матрица, нужно вывести все подматрицы, в которых все элементы одинаковы Задание: Дана прямоугольная матрица, нужно вывести все подматрицы, в которых все элементы одинаковы. Вот мой код, работает, если ввести матрицу 2 на 2, я не знаю как для любой матрицы сделать :( var a:array of integer; i,j,ii,jj,n,m,U,R:integer; Begin randomize; readln(n,m); for i:=1 to n do for j:=1 to m do https://www.cyberforum.ru/ pascal/ thread1885420.html Pascal Замена символа https://www.cyberforum.ru/ pascal/ thread1885391.html
Пользователь вводит небольшой текст(хватит и около 200-250 символов), нужно вместо пробела вставить запятую и пробел( вместо " " , нужно ", "
Pascal Работа со списками
Требуется считать последовательность чисел из типизированного файла и записать её в список. Далее сделать сортировку списка таким образом: сначала отрицательные числа, потом положительные (порядок следования чисел не менять (сортировка пузырьком не подойдет)). Отсортированный список записать в отдельный файл. Обеспечить вывод на экран двух файлов (исходного и преобразованного). Только начала...
Pascal Вывести имена и фамилию студентов, который закрывали сессию в порядке убывания Задан текстовый файл, каждая строка которого содержит разделённую через пробел фамилию, имя студента и три оценки("отлично"/"хорошо"/"удовлетворительно"), полученные в сессию. Например: Шоним Вася хорошо отлично хорошо. Вывести имена и фамилию студентов, который закрывали сессию в порядке убывания ("отлично"/"хорошо"/"удовлетворительно"). https://www.cyberforum.ru/ pascal/ thread1885320.html
Эксперт Pascal/Delphi
6811 / 4568 / 4819
Регистрация: 05.06.2014
Сообщений: 22,438
22.12.2016, 18:51 0

Найти количество положительных и количество отрицательных элементов матрицы - Pascal - Ответ 9931303

22.12.2016, 18:51. Показов 4931. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено Danil_322 как решение

Решение

Взято отсюда:
Найти количество положительных чисел и количество отрицательных чисел в исходном наборе

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var
  j, i, kol, otr, pol: byte;
  a: array [1..7, 1..3] of integer;
 
begin
  for i := 1 to 7 do
  begin
    for j := 1 to 3 do
    begin
      a[i, j] := random(7) - 3;
      write(a[i, j]:4);
      if (a[i, j] < 0) then inc(otr);
      if (a[i, j] > 0) then inc(pol);
    end;
    writeln;
  end;
  writeln('Отрицательных чисел = ', otr);
  writeln('Положительных чисел = ', pol);
end.


Вернуться к обсуждению:
Найти количество положительных и количество отрицательных элементов матрицы Pascal
0
Заказать работу у эксперта

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.12.2016, 18:51
Готовые ответы и решения:

Найти количество строк, в которых количество отрицательных элементов больше, чем количество положительных.
Двумерные массивы. Задание 1. В каждом варианте дан двумерный массив A из N строк и М...

Найти сумму отрицательных и количество положительных элементов матрицы
1)Найти сумму отрицательных и количество положительных элементов для матриц В(5,3) и С(4,3) 2)Дана...

Найти среднее арифметическое значение положительных элементов матрицы и количество отрицательных
Задача 1 Заполнить двумерный массив размером 10х10 случайными числами из интервала от -12 до 12....

Найти номер первой строки матрицы, содержащей равное количество положительных и отрицательных элементов
Дана целочисленная матрица размером aхb. Вывести номер ее первой строки,содержащей равное...

1
22.12.2016, 18:51
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.12.2016, 18:51
Помогаю со студенческими работами здесь

Определить количество положительных и отрицательных элементов матрицы
Помогите плиз написать программу : Определить количество положительных и отрицательных элементов...

Найти количество положительных элементов на чётных номерах и количество отрицательных на нечетных номерах
Доброго времени суток господа, помогите с задачей пожалуйста, проблема с парными и непарными...

Определить количество отрицательных и количество положительных чисел в каждой строке матрицы.
Заполнить матрицу М(7,7) псевдослучайными числами вещественного типа из диапазона . Определить...

Используя процедуру, определить сумму и количество положительных и отрицательных элементов матрицы.
Составить программу. Используя процедуру, определить сумму и количество положительных и...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru