Найти сумму всех положительных элементов матрицы - Pascal ABC

Pascal ABC

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

Войти

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

Рейтинг 4.57/7:

@murloc 0 / 0 / 0 Регистрация: 14.11.2012 Сообщений: 29

	Найти сумму всех положительных элементов матрицы 28.01.2013, 16:47. Показов 1416. Ответов 1 Метки нет (Все метки) Найти сумму всех положительных элементов матрицы. 0

Лучшие ответы (1)

Сообщение: #4063737

IT_Exp

Эксперт

34794 / 4073 / 2104

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

Сообщений: 32,602

Блог

28.01.2013, 16:47

Ответы с готовыми решениями:

Найти сумму всех положительных элементов матрицы
Найти сумму всех положительных элементов матрицы.

Найти сумму всех положительных элементов матрицы, состоящий из N строк и M столбцов
Найти сумму всех положительных элементов матрицы, состоящий из N строк и M столбцов

Найти сумму всех положительных элементов массива
помогите с задачкми) плиз):):help::help::help: 1) найти сумму всех положительных элементов массива. + блок схема нужна

Kodzaev

3030 / 1916 / 1649

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

Сообщений: 3,060

28.01.2013, 18:16

Сообщение было отмечено murloc как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Var
  x: Array[1..10,1..10] of Integer;
  i,j,n,m,s: Integer;
BEGIN
Writeln('Введите размеры матрицы N и M: ');
Readln(n,m);
Randomize;
For i:=1 to n do
begin
  For j:=1 to m do
  begin
    x[i,j]:=Random(10)-4;
    Write(x[i,j]:3);
    If x[i,j]>0 Then s:=s+x[i,j];
  end;
  Writeln
end;
Writeln('Сумма положительных = ',s);
END.

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

BasicMan

Эксперт

29316 / 5623 / 2384

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

Сообщений: 30,364

Блог

28.01.2013, 18:16

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

Найти сумму всех отрицательных и положительных элементов массива
найти сумму всех отрицательных и положительных элементов массива. Определить какая сумма по модулю больше. Вывести результат и...

Найти сумму S1 положительных элементов и сумму S2 отрицательных элементов матрицы
Ввести матрицу. Найти сумму S1 положительных элементов и сумму S2 отрицательных элементов над и под главной диагональю. Если S1>S2, то...

Найти среднее арифметическое всех положительных элементов матрицы
2. Найти среднее арифметическое всех положительных элементов матрицы(двумерной). Для одномерного смотрел пост ...

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

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

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Подключение Box2D v3 к SDL3 для Android: физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .
Влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка 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 и т. д. Сборка примера Скачайте. . .

Наверх