Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Напечатать таблицу для перевода чисел из двоичного кода в десятичный для целых чисел от 0 до N Помогите написать программу, пожалуйста Добавлено через 21 час 0 минут :):):) :) :) :) Добавлено через 16 часов 24 минуты Народ что никто не поможет?	Основные операции: вставить, удалить эл. из очереди, просмотреть первый эл., удалить очередь и напечатать очередь. Turbo Pascal Динамические структуры данных, обчная очередь. Основные операции: вставить, удалить эл. из очереди, просмотреть первый эл., удалить очередь и напечатать очередь. называйте темы максимально информативно
Turbo Pascal Ввод переменной https://www.cyberforum.ru/ turbo-pascal/ thread298125.html написать программу которая вводит произвольное число значений в переменную n и находит сумму всех отрицательных чисел Только мне непонятно условие?	Формирование множества случайных целых чисел Turbo Pascal Задание: Написать программу, формирующую множество случайным образом множество целых чисел и определяющую количество элементов в этом множестве. i := 0; for j := 1 to 100 do begin randomize; k := random(1000); l := random(2); if l=1 then begin include(M,k); inc(i);
Turbo Pascal Дано вещественное число - цена 1 кг кофет. Вывести 1.2, 1.4,...2 кг конфет. Дано вещественное число - цена 1 кг кофет. Вывести 1.2, 1.4,...2 кг конфет. Благодарю за помощ!8-) да...;) https://www.cyberforum.ru/ turbo-pascal/ thread298097.html	Turbo Pascal Напечатать все согласные буквы которые входят в слова. Здраствуйте! У меня возникла проблема с решением задачи.Если кто может помогите пожалуйста. Задача: Дана последовательность слов(английского языка).Между словами запятая, за последним словом... delete(st,1.e); Что это за '.' https://www.cyberforum.ru/ turbo-pascal/ thread298165.html
Turbo Pascal Найти частное произведений четных цифр четырехзначного числа на нечетные var c,pc,pn:integer; begin readln(c); pc:=1; pn:=1; while c div 10 >0 do begin if (c mod 10) mod 2=0 then pc:=pc*(c mod 10) else Что нужно??? условие задания напиши https://www.cyberforum.ru/ turbo-pascal/ thread298101.html	Turbo Pascal Вычисление значения суммы ряда Вычислить значения суммы ряда: Sin0,5+cos1+sin1,5+...+cos3 Аргументы и значения каждого слагаемого ряда вывести в табличном виде. program summa; var eps,s,dx,an:real; n:integer; begin writeln('Vvedite tochnost epsilon'); readln(eps); dx:=0.5; an:=sin(0.5); n:=1; https://www.cyberforum.ru/ turbo-pascal/ thread298159.html
Turbo Pascal Дано натуральное число. Верно ли, что его первая цифра превышает M? https://www.cyberforum.ru/ turbo-pascal/ thread298152.html Ребят, помогите кто чем сможет, напишите решение хоть какой нибудь задачи, чем больше, тем конечно лучше, но все же) Кто какую решит, пожалууууйстаааааааааа) Буду очень благодарен) 1. Дано... Var m,n:LongInt; {n-число, m-вспомогательная переменная} k:Integer; { k-счетчик количества цифр} begin Write('Введите целое число: '); ReadLn(n); m:=n; k:=0; ...	Turbo Pascal Не выводит в файл(там пусто). program laba; var i, j: integer; Shifr, MAS: array of char; fa, fb: text; KL: array of integer; begin
Turbo Pascal Множества!Если возможно подскажите! https://www.cyberforum.ru/ turbo-pascal/ thread298144.html Здраствуйте! У меня возникла проблема с решением задачи.Если кто может помогите пожалуйста. Задача: Дана последовательность слов(английского языка).Между словами запятая, за последним словом... b:= y в ' ' должен находиться	Turbo Pascal на паскаль задан радиус... https://www.cyberforum.ru/ turbo-pascal/ thread298146.html 1) задан радиус окружности. Вычислить на сколько изменится длина окружности если радиус увеличить на 1. формула С=2pir 2)запишите алгоритм нахождения корней уравнения x^2-(a+1)x+a-1=0 в... readln(r); c := 2pir; c1 := 2pi*(r+1); writeln('Изменится на ',c1-c);

94 / 94 / 64

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

Сообщений: 165

17.05.2011, 22:16

Найти сумму и подсчитать количество положительных и отрицательных элементов массива - Turbo Pascal - Ответ 1661575

17.05.2011, 22:16. Показов 2834. Ответов 4

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

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

Решение

подсчитал сумму всех элементов

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
  const
  n=12;
 var
 a:array[1..n]of integer;
 i,s,p,o:integer;
begin
   randomize;
   for i := 1 to n do
   begin
      a[i]:=random(10)-5;
      write(a[i]:4);
   end;
   writeln;
   s:=0;
   o:=0;
   p:=0;
    for I := 1 to n do
      begin
       s:=s+a[i];
       if a[i]<0  then
       o:=o+1
       else p:=p+1;
      end;
    writeln('summa elementov=',s);
     writeln('otricatelnih elementov=',o);
     writeln('pologitelnih elementov=',p);
   readln;
end.

Вернуться к обсуждению:
Найти сумму и подсчитать количество положительных и отрицательных элементов массива Turbo Pascal

Следующий ответ

Programming

Эксперт

39485 / 9562 / 3019

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

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

Блог

17.05.2011, 22:16

Готовые ответы и решения:

Подсчитать сумму и количество положительных и отрицательных элементов массива.
ПРивет, помогите пожалуйста с массивами, а то ступор.. 1.дан одномерный массив Xn. Подсчитать сумму и количество положительных и...

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

Подсчитать количество отрицательных и сумму положительных элементов массива
В массиве С(n) подсчитать количество отрицательных и сумму положительных элементов.

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

inter-admin

Эксперт

29715 / 6470 / 2152

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

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

Блог

17.05.2011, 22:16

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

Подсчитать количество положительных и отрицательных элементов массива; найти максимальный среди нечётных
искал в форумах, но безрезультатно:-| 1)В массиве из n чисел есть положительные и отрицательные элементы. Подсчитать количество...

Найти сумму положительных (SP) и количество отрицательных (PO) элементов массива
Помогите пожалуйста с составлением программы. Условие: Найти сумму положительных (SP) и количество отрицательных (PO) элементов массива...

Найти сумму положительных и количество отрицательных элементов массива
В универе дали следующее задание: Дан массив Ai, i=1,2,…,15. Найти сумму положительных элементов и количество отрицательных элементов...

Найти сумму положительных и количество отрицательных элементов массива
люди помогите пожалуйста написать программу к задаче: Задан массив из N чисел. Найти сумму положительных и количество отрицательных.

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

Новые блоги и статьи Все статьи Все блоги /
Организация масштабируемого хранилища с Apache Cassandra Codd 14.03.2025 Изначально разработанная в Facebook, а затем переданная Apache Software Foundation, Cassandra сочетает в себе принципы Amazon's Dynamo и Google's BigTable. Эта комбинация создает уникальную. . .	Kafka или Pulsar: Что лучше для потоковой обработки в Java Javaican 14.03.2025 Среди множества решений для потоковой обработки данных Apache Kafka долгое время удерживала лидирующие позиции, став де-факто стандартом в индустрии. Однако в последние годы всё больше внимания. . .	Создание и использование компонентов в Vue 3 Reangularity 14.03.2025 Компонент в Vue - это автономный блок интерфейса, который содержит собственную разметку, логику и стили. Представьте себе кнопку, форму ввода или даже целую панель навигации - всё это можно оформить. . .	Vue 3: Создаем современное веб-приложение с Composition API Reangularity 14.03.2025 В фронтенд-разработке Vue 3 выделяется своим прагматичным подходом. В отличие от React с его минималистичной философией "всё — JavaScript" или Angular с его всеобъемлющим корпоративным подходом, Vue. . .	Разработка контекстных меню в iOS mobDevWorks 14.03.2025 С приходом iOS 13 Apple представила новый API для контекстных меню, который полностью заменил предыдущую технологию 3D Touch peek & pop. Хотя многие разработчики и пользователи испытывают ностальгию. . .
Лучшие практики оптимизации Docker Image Mr. Docker 13.03.2025 Размер Docker-образа влияет на множество аспектов работы с контейнерами. Чем больше образ, тем дольше его загрузка в реестр и выгрузка из него. Для команд разработки, работающих с CI/ CD пайплайнами,. . .	Вопросы на собеседовании по Docker Mr. Docker 13.03.2025 Ты сидишь напротив технического специалиста, и вдруг звучит вопрос про Docker Swarm или многоэтапные сборки. Пот на лбу? Не переживай, после этой статьи ты будешь готов ко всему! Эта статья будет. . .	Поиск текста в сносках : замена дефиса на тире или тире на дефис... РоΜа 13.03.2025 Нужно было найти текст в сносках и заменить. Почему-то метод селекшн не сработал. . . пришлось гуглить. найденный на форумвба код пришлось править. Смысл - заменяет в сносках дефисы и тире на нужные. . . .	Real PATH definitions in bash scripts jigi33 13.03.2025 Как поймать путь и путь к директории относительно запускаемого файла в BASH 1. поймать путь через вывод $(pwd) 2. более правильно - на основе realpath (см. скриншот)	Django или Flask: что выбрать для веб-разработки на Python py-thonny 13.03.2025 Django – это высокоуровневый фреймворк, который придерживается философии "всё включено". Он предоставляет разработчику готовые решения для большинства типичных задач веб-разработки: от аутентификации. . .

Наверх