Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
0 / 0 / 1
Регистрация: 05.06.2009
Сообщений: 16

Найти количество элементов массива, равных нулю

05.06.2009, 10:20. Показов 3314. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
в одномерном массиве состоящем из n вещественных элементов вычислить:
1. Количество элементов массива равных нулю
2. Сумму элементов массива, расположенных после минимального элемента. Упорядочить элементы массива по возрастанию модулей
Помогите Плиззз!!!
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
05.06.2009, 10:20
Ответы с готовыми решениями:

Найти количество элементов массива, равных нулю
Составить алгоритм и программу, которая в одномерном массиве, состоящем из n вещественных элементов, вычисляет: а) Количество элементов...

Вывести количество отрицательных, положительных и равных нулю элементов массива
дан целочисленный массив из 30 элементов.Вывести количество отрицательных,положительных и равных нулю элементов(массив записать в 1.txt) ...

Для матрицы А подсчитать количество элементов, равных нулю. Переставить строки
Для матрицы А(m, n), 1<(m, n)<10, подсчитать количество элементов, равных нулю. Переставить строки по убыванию значений максимальных...

4
0 / 0 / 1
Регистрация: 05.06.2009
Сообщений: 16
05.06.2009, 13:55  [ТС]
1. Количество элементов массива равных нулю
2. Сумму элементов массива, расположенных после минимального элемента. Упорядочить элементы массива по возрастанию модулей
0
2923 / 844 / 324
Регистрация: 30.04.2009
Сообщений: 2,633
05.06.2009, 14:22
Pascal
1
2
3
4
5
k:=0;
for i:=1 to n do
 if a[i]=0 then k:=k+1;
writeln(k);
readln;
1
 Аватар для HERETIC
95 / 96 / 13
Регистрация: 10.10.2008
Сообщений: 606
06.06.2009, 00:48
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Ответ на первую часть задания:
Pascal
1
2
3
4
5
6
var
mas:array[0..max]:real;
begin
 kol:=0;
 for i:=0 to max do
  if mas[i]=0 then kol:=kol+1;
1
Босс
 Аватар для sheka
161 / 126 / 10
Регистрация: 03.06.2009
Сообщений: 750
06.06.2009, 00:55
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

2.
Delphi
1
2
3
4
5
6
7
8
9
10
11
var
m:array[1..k]:real;
begin
min:=m[1];
for i:=2 to k do 
  if m[i]<=min then begin
    min:=m[i];
    s:=0;
    emd
  else s:=s+m[i];
end.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
06.06.2009, 00:55
Помогаю со студенческими работами здесь

Найти количество элементов массива, равных среднему арифметическому первого и последнего элементов
Найти количество элементов массива, равных среднему арифметическому первого и последнего элементов массива.Исходные данные задать...

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

Найти количество элементов массива, равных 5 и стоящих на нечётных номерах
Дан массив из 100 целых чисел. Найти количество элементов равных 5 и стоящих на нечетных номерах

Составить программу, которая находит количество элементов, равных первому элементу, и количество элементов, равных последнему, в массивах X(N) и Y(M).
Составить программу, которая находит количество элементов, равных первому элементу, и количество элементов, равных последнему, в массивах...

Количество элементов массива равных 5
В массиве G(k) (k=1,10) найти количество N элементов равных 5. Прошу помочь т.к задача вызывает затруднения!


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

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
Воспроизведение звукового файла с помощью 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, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль
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 полиномов. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru