Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.64/11: Рейтинг темы: голосов - 11, средняя оценка - 4.64
1 / 1 / 1
Регистрация: 16.12.2011
Сообщений: 52

Вычислить число нулевых элементов вектора

13.06.2012, 19:24. Показов 1962. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
6)Дан вектор А(n). Вычислить число нулевых элементов вектора.

Заранее благодарен за какую либо помощь
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
13.06.2012, 19:24
Ответы с готовыми решениями:

Найти отношение количества нулевых элементов массива B к количеству нулевых элементов массива C
Найти долю K=L/M, где L - количество нулевых элементов массива B(8), а M - количество нулевых...

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

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

1
Лучи добра
 Аватар для Das Gespenst
173 / 171 / 191
Регистрация: 08.06.2012
Сообщений: 292
13.06.2012, 20:26
Лучший ответ Сообщение было отмечено DimaKAA как решение

Решение

Лови!
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
program z;
var i,n,k:integer; f:byte;
a:array [1..100] of integer;
begin
     f:=0; k:=0;
     write('Ââåäèòå êîë-âî ýëåìåíòîâ âåêòîðà: ');
     readln(n);
     writeln('Ââîä ýëåìåíòîâ âåêòîðà');
     for i:=1 to n do
         begin
              write('a[',i,']=');
              readln(a[i]);
         end;
     writeln('Âûâîä ýëåìåíòîâ âåêòîðà');
     for i:=1 to n do
         write(a[i],' ');
     writeln;
     for i:=1 to n do
         if a[i]=0
            then
                begin
                     f:=1;
                     k:=k+1;
                end;
     if f=0
        then
            writeln('Â âåêòîðå íåò íóëåâûõ ýëåìåíòîâ')
     else
         writeln('Êîë-âî íóëåâûõ ýëåìíòîâ âåêòîðà - ',k);
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
13.06.2012, 20:26
Помогаю со студенческими работами здесь

Определить количество нулевых элементов вектора
Помогите пожалуйста решить задачу в pascal с блок схемой. Дан массив целых чисел, состоящий из...

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

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

Вычислить сумму элементов в тех столбцах, которые не содержат нулевых элементов
дан двумерный массив. Определить: 1)сумму элементов в тех столбцах, которые не содержат нулевых...

Сформировать массив номеров строк, не имеющих нулевых элементов. Вычислить сумму элементов остальных строк
Всем доброго времени суток. Помогите решить, кому не сложно. Так же, если можно блок схему...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Оттенки серого
Argus19 18.03.2026
Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++
8Observer8 17.03.2026
Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip
Символические и жёсткие ссылки в Linux.
algri14 15.03.2026
Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора
ФедосеевПавел 14.03.2026
Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
делаю науч статью по влиянию грибов на сукцессию
anaschu 13.03.2026
прикрепляю статью
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++
8Observer8 10.03.2026
Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE
8Observer8 10.03.2026
Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки
Neotwalker 08.03.2026
Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru