Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.63/8: Рейтинг темы: голосов - 8, средняя оценка - 4.63
 Аватар для M1n35
0 / 0 / 0
Регистрация: 17.09.2016
Сообщений: 22

В массиве содержатся целые числа. Посчитать сумму всех двузначных

22.12.2016, 19:58. Показов 2233. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
В массиве содержатся целые числа. Посчитать сумму всех двузначных отрицательных и произведение всех положительных элементов массива.
Предусмотреть случай когда таких чисел в массиве нет.
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
22.12.2016, 19:58
Ответы с готовыми решениями:

Вывести числа, которые содержатся в первом массиве и не содержатся во втором
Я начинающий программист, вот такая задачка у меня. В первом массиве 12 цифр, во втором 10. А диапазон от 1 до 20. Два массива выводятся...

Перевести рандомные double числа в целые и посчитать сумму
Подскажите кому не сложно. Задача. Перевести числа рандомные n1, n2, n3 в целые числа и посчитать их сумму. Что используется в этой...

Даны целые числа a1,, an: посчитать количество всех отрицательных чисел, если четные не стоят после нечетных
2)Даны целые числа a1,..., an. Если в данной последовательности ни одно четное число не расположено после нечетного, то посчитать...

1
57 / 57 / 114
Регистрация: 09.12.2016
Сообщений: 143
23.12.2016, 12:35
Лучший ответ Сообщение было отмечено M1n35 как решение

Решение

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
const
n = 10;
var
a:array[1..n] of integer;
i, sum, pr:integer;
fp,fs:boolean;
begin
writeln('Исходный массив: ');
for i:=1 to n do
    begin
    a[i]:=-200 + random(400);
    write(a[i]:5);
    end;
fp:=false;
fs:=false;
sum:=0;
pr:=1;
for i:=1 to n do
    begin
    if (abs(a[i]) < 100) and (abs(a[i]) > 9) then
        begin
        sum:=sum + a[i];
        fs:=true;
        end;
    if a[i] > 0 then
        begin
        pr:=pr*a[i];
        fp:=true;
        end;
    end;
if fp then
    writeln('Произведение положительных элементов массива = ', pr)
else
    writeln('Положительных элементов в массиве нет');
if fs then
    writeln('Произведение двузначных элементов массива = ', sum)
else
    writeln('В массиве нет двузначных элементов ');
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
23.12.2016, 12:35
Помогаю со студенческими работами здесь

Посчитать сумму всех элементов в массиве
Условие задачи: Реализовать функцию ForEach, которая принимает в качестве аргументов массив чисел и функцию f и применяет функцию f к...

Посчитать сумму всех четных чисел в массиве
Помогите пожалуйста решить задачу: Заполнить массив из 10 элементов числами, введенными с клавиатуры. Посчитать сумму всех четных чисел в...

Посчитать сумму всех отрицательных чисел в массиве
Посчитать сумму всех отрицательных чисел в массиве (матрица 5х5) Заранее спасибо Добавлено через 6 минут Вот моя программа ...

Посчитать сумму всех парных чисел в данном массиве
1. Составить програму- какая бы обсчитала количество слов что начинается на w,a –В данном предложении (р-ння СВОЕ!!!) 2. Дан...

Укажите два двузначных числа, кратных 5, у которых сумма цифр не меняется при умножении на все целые числа от 1 до 9
Форумчане, доброго времени суток! Есть вопрос &quot;Укажите два двузначных числа, кратных 5, у которых сумма цифр не меняется при умножении...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Инструменты 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 и т. д. Сборка примера Скачайте. . .
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly
8Observer8 24.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru