Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal Сортировка очереди (как динамической структуры) есть 2 модуля. Один для списка UNIT list; INTERFACE TYPE TElem=integer; PList1=^CList1; Clist1=object PRIVATE pb,pt:pointer; Errcode:byte; https://www.cyberforum.ru/ pascal/ thread1207892.html	Pascal Сортировка - исправить ошибки в коде Const x:arrayof integer=(-1,2,4,-8,1,3,5,13,-4,7); Var i,s,k:integer; Begin for k:=5 to 8 do for i:=3 to 6 do if x<x then begin s:=x;... Ошибка, однако. Нельзя изменять значения константы. Cyborg Drone, в Borland/Turbo Pascal это не ошибка, а особенность такая. :) Там значения типизированных констант можно изменять. Если константа...
Pascal Сформировать одномерный массив с использованием датчика случайных чисел Сформировать одномерный массив, содержащий 15 элементов, с помощью датчика случайных чисел, получить новый массив, каждый элемент которого равен произведению соответствующего элемента исходного... Const n=15; Var A,B:array of integer; i,imax:byte; m:integer; Begin writeln('Исходный массив'); For i:=1 to n do Begin A:=random(31)-15; write(A:4); https://www.cyberforum.ru/ pascal/ thread1207915.html	Pascal Перестановка элементов в динамическом списке https://www.cyberforum.ru/ pascal/ thread1207930.html Дан список из n целых чисел, a1,a2...an. Поменять местами первый из минимальных и последний из положительных элементов списка. Не получается процедура Swap, обмен минимального с последним... Если надо обменивать только данные элементов, без перестановки положения самих элементов, то так: {Обмен данных между первым наименьшим и последним положительным элементами.} procedure Swap(const...
Pascal Подсчитать число учеников, выполнивших первую работу на 5 дан спсиок учеников класса и отметки каждого из учеников за выполнение двух контрольных работ. требуется: а)подсчитать число учеников, выполнивших первую работу на 5 б)подсчитать число учеников,...	Сортировка записей типизированного файла Pascal Cоставьте программу на Паскале для сортировки записей типизированного файла. Иногда можно воспользоваться поиском и произойдет чудо! Сортировка тип. файла
Вычислить приближенно значение бесконечной суммы Pascal Помогите пожалуйста. Вычислить приближенно значение бесконечной суммы, также дано точное значение суммы, с которым можно сравнить полученный ответ. ... MP9526, const e=10e-10; var s:real; i:integer; begin s:=0;i:=0; repeat inc(i); s:=s+1/sqr(i); until 1/sqr(i)<e; writeln('s = ',s:0:5,', pi^2/6 = ',sqr(pi)/6:0:5);	Pascal Сколько целых чисел содержится в интервале истинности функции Y на отрезке [-20;20] Помогите с заданием) Сколько целых чисел содержится в интервале истинности функции Y на отрезке y:=(not(a>6) and (a>2) OR NOT(a<=8)and(a<=12))and(a mod 3=0); Ответ: 4 Сколько Ответ: 4 Рад был помочь :beach:
Pascal Какое значение будет напечатано в результате выполнения программы? Какое значение будет напечатано в результате выполнения программы? type mass=array of integer; mtr=array of mass; var i,j:integer; c:mass; const a:mtr=((15,-2,4),(11,-3,9),(5,-6,7)); begin... c:=3-i; c=3-2=1 c:=c+a c=1+11=12 c=12-3=9 c=9+9=18 https://www.cyberforum.ru/ pascal/ thread1208892.html	Pascal Чему будут равны элементы этого массива после выполнения фрагмента программы? В программе описан одномерный целочисленный массив A с индексами от 1 до 7. Ниже представлен фрагмент этой программы, в котором значения элементов массива сначала задаются, а затем меняются. A:=... Исходный массив 1 4 9 16 25 36 49 Измененный 0/1 0/4 0/9 0/16 0/25 0/36 0/49 Ответ 3) https://www.cyberforum.ru/ pascal/ thread1208051.html
Pascal Возведение числа в степень https://www.cyberforum.ru/ pascal/ thread1208143.html нужно возвести число в заданный массив без единицы Y(i-тый) в степень (М(i-тое)) -1 нужно возвести число в заданный массив Сами то поняли что написали?	Pascal Процедуры и функции - вычислить значение выражения По этому условию составить 2 программы - одну с использованием процедур, другую - с помощью функций. W=\begin{cases}f(a+b) &\ ,\ \ a\cdot b\geq 0 \\\\\\ \frac{f(a)+f(b)}{f(a\cdot b)} &\ ,\ \... Функция function F(x:real):real; begin result:=(sin(abs(x)))/(2x((sin(x))/(cos(x)))); end; var a,b,w:real; begin readln(a,b); if a*b>=0 then w:=F(a+b)

KOPOJI

Почетный модератор

16844 / 6724 / 880

Регистрация: 12.06.2012

Сообщений: 19,967

15.06.2014, 23:06

Разработать программу для вычисления в двумерном массиве суммы отрицательных чисел - Pascal - Ответ 6322558

15.06.2014, 23:06. Показов 1198. Ответов 3

Метки (Все метки)

Ответ

Python

from random import randint
 
n = int(input('Введите n'))
m = int(input('Введите m'))
 
arr = [[randint(-100, 100) for j in range(m)] for i in range(n)]
sum_below_zero = 0
sum_above_zero = 0
cnt_even = 0
cnt_odd = 0
 
print("\n\n", arr)
 
for x in arr:
  for y in x:
    if y < 0:
      sum_below_zero += y
    else:
      if y % 2 == 0:
        cnt_even += 1
      else:
        cnt_odd += 1
        sum_above_zero += y
 
print("\n\n", sum_below_zero, ' ', sum_above_zero, ' ', cnt_even, ' ', cnt_odd)

http://ideone.com/1NC9F8

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

Следующий ответ

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

15.06.2014, 23:06

Готовые ответы и решения:

Разработать программу для вычисления в двумерном массиве суммы отрицательных чисел
Разработать программу для вычисления в двумерном массиве суммы отрицательных чисел. Желательно в Delphi. Пожалуйста помогите. Заранее...

Разработать программу для вычисления в двумерном массиве
Задание: Разработать программу для вычисления в двумерном массиве : -Суммы отрицательных чисел. -Количества положительных четных чисел....

разработать программу для вычисления суммы положительных чисел
Всем Hello!!! Помогите разработать программу для вычисления суммы положительных чисел. Пять вещественных чисел вводятся с клавиатуры...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

15.06.2014, 23:06

Помогаю со студенческими работами здесь

Написать программу для подсчёта суммы положительных чисел в двумерном массиве размерности MxN
Продумать интерфейс, его дизайн, функциональность. И настроить меню с информацией об авторе, справке. Прошу только код с названием...

Составьте программу вычисления в массиве В(8) суммы отрицательных элементов
Составьте программу вычисления в массиве В(8) суммы отрицательных элементов

Составьте программу вычисления в массиве суммы отрицательных элементов
2. Составьте программу вычисления в массиве суммы отрицательных элементов. Помогите пожалуйста:)

Разработать программу для вычисления суммы ряда
Составьте программу для вычисления суммы ряда 1 + 1/3 + 1/5 + 1/7 + …

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

Новые блоги и статьи Все статьи Все блоги /
Использование кэша Laravel - полный гайд bytestream 18.02.2025 Кэширование - один из наиболее эффективных способов повышения производительности веб-приложений. В современном мире, где скорость загрузки страниц напрямую влияет на удержание пользователей и. . .	Создаем REST API в Laravel с аутентификацией и Passport bytestream 18.02.2025 Разработка современных веб-приложений все чаще требует создания надежного и хорошо структурированного API. REST API стал стандартом де-факто для построения взаимодействия между клиентской и серверной. . .	Пайплайны в Laravel - полный гайд bytestream 18.02.2025 Разработка современных веб-приложений часто требует обработки сложных процессов, состоящих из множества последовательных шагов. Например, при создании системы комментариев может потребоваться. . .	Как правильно использовать @required в Symfony bytestream 18.02.2025 При разработке приложений на Symfony мы часто сталкиваемся с необходимостью внедрения зависимостей. Фреймворк предоставляет несколько способов управления этим процессом, и одним из таких инструментов. . .	Система безопасности в Laravel: возможности и примеры Wired 18.02.2025 Каждый день появляются новые виды атак и уязвимостей, которые могут поставить под угрозу конфиденциальные данные пользователей и функционирование всей системы. В этом контексте выбор надежного. . .
Давайте сравним Django и Laravel Wired 18.02.2025 Django и Laravel - два мощных инструмента, которые часто сравнивают между собой. Оба фреймворка предлагают разработчикам богатый набор возможностей для создания масштабируемых веб-приложений, но. . .	Laravel или React - что лучше? Wired 18.02.2025 В разработке веб выбор правильного инструмента часто определяет успех всего проекта. Особенно интересным представляется сравнение Laravel и React - двух популярных технологий, которые часто. . .	Laravel 11: новые возможности, гайд по обновлению Wired 18.02.2025 Laravel 11 - это новая масштабная версия одного из самых популярных PHP-фреймворков, выпущенная в марте 2024 года. Эта версия продолжает традицию внедрения передовых технологий и методологий. . .	Миграции в Laravel Wired 18.02.2025 Разработка веб-приложений на Laravel неразрывно связана с управлением структурой базы данных. При работе над проектом часто возникает необходимость вносить изменения в схему базы данных - добавлять. . .	Аутентификация в Laravel Wired 18.02.2025 В современном мире веб-разработки безопасность пользовательских данных становится критически важным аспектом любого приложения. Laravel, как один из самых популярных PHP-фреймворков, предоставляет. . .

Наверх