Массивы,просьба подредоктировать

15.12.2009, 17:35. Показов 520. Ответов 0

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

Студворк — интернет-сервис помощи студентам

Привет всем!
Надо вместо процедуры поиска четных элементов, сделать поик элементов с отрицательными значениями,т.е тут подсчитывается количество четных элементов,а надо,чтоб подсчитывал количество элементов с отриц. значениями.
Заранее благодарен за помощь.

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
Program Massiv
const
       n = 6;
       var
       A: array[1.. n] of integer;
       x, Choice, i: integer;
     procedure Sum; {сложение всех положительных элементов}
     begin
x := 0;
for i := 1 to n do
        if A[i]>=0 then
x := x + A[i];
writeln('Sum: ', x);
     end;
  procedure Count; {поиск чётных элементов}
     begin
writeln('Count: ', x);
     end;
     begin
x := 0;
write('vvod elements massiva A ');
writeln('from ', -(n div 2)-1, ' to ', (n div 2)); {ввод масссива}
for i := 1 to n do begin
write('A[',i,']: ');
readln(A[i]);
if (A[i] mod 2)=0   then
x := x + 1;
       end;
write('vibor funkcii (1-Sum, 2-Count): '); {выбор функции}
   readln(Choice);
case Choice of
1: Sum;
2: Count;
       end;
       readln;
     end.

Programming

Эксперт

39485 / 9562 / 3019

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

Сообщений: 41,671

Блог

15.12.2009, 17:35

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

большая просьба
у кого есть онлайн ? например я на экзамене отправить в аське задача паскали Добавлено через 25 секунд и я буду награждать

Просьба найти ошибку
просьба найти ошибку в программе и сказать что и где надо дополнить/исправить Задача: Дан массив, состоящий из записей. Каждая запись...

просьба написаниия програмы
народ помогите плиззззз написать прогу Написати програму, яка б зрівнювала б два числа, які були введені з клавіатури. Програма...

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

inter-admin

Эксперт

29715 / 6470 / 2152

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

Сообщений: 28,500

Блог

15.12.2009, 17:35

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

просьба помочь с програмой
вот её блок 78. Составить программу, которая будет 1. Читать с клавиатуры число А; 2. Если число меньше 10, то : ...

Просьба о помощи по написанию условия.
Здравствуйте, уважаемые форумчане. Подскажите, пожалуйста, как правильно написать условие, которое бы выводило сообщение на экран "В...

Просьба помочь в написании процедуры.
Здравствуйте, уважаемые форумчане. Решаю следующую задачу: составить процедуру выделения из массива Y (4*3) элементов со значением в...

Просьба помочь разобраться в написании проверки условия.
Здравствуйте, уважаемые форумчане. Пишу ограничение, которое запрещает вводить символы кроме русских букв для полей "Наименование...

программа на одномерный массив.просьба помочь с решением
Ввести одномерный массив из 10 целых чисел. Найти сумму его элементов.

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

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

Новые блоги и статьи Все статьи Все блоги /
Перемещение выделенных строк ТЧ из одного документа в другой Maks 30.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .

Наверх