Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Составить программму, которая находит произведение элементов, меньших среднего арифметического всех элиментов составить программму, которая находит произведение элиментов, меньших среднего арифметического всех элиментов, сумму элиментов, больших среднего арифметического, в массивах X(6) и Y(8). вычисление суммы и произведения оформить в виде подпрограммы. помогите пожалуйста, и если можно с коментариями что к чему. https://www.cyberforum.ru/ pascal/ thread111916.html	в файле количество слов, начинающихся с а Pascal Имеется текстовый файл, в каждой строке которого записано произвольное количество слов, отделенных одним или несколькими пробелами. Длина строки не более 255 символов. Количество строк заранее низвестно. Написать программу, считающую в файле количество слов, начинающихся с а
Pascal В матрице n-го порядка найти максимальный элемент среди элементов https://www.cyberforum.ru/ pascal/ thread111869.html В матрице n-го порядка найти максимальный элемент среди элементов, лежащих выше побочной диагонали, и минимальный среди элементов, лежащих ниже главной диагонали.	Pascal Составить программу табулирования функции https://www.cyberforum.ru/ pascal/ thread111865.html Помогите проверить задачу (Составить программу табулирования функции ln (x + √ (x + y)) в прямоугольнике x с шагом табуляциы h. a=0;b=2;c=1;d=2;h=0.1) Вот моя программа program aa; uses crt; const a=0; b=2; c=1; d=2; h=0.1; var x,y,f,k,l:real;
заменить нулями числа в матрице Pascal Дана квадратная матрица порядка M. Заменить нулями элементы матрицы, лежащие выше побочной диагонали	Pascal Посчитайте количество положительных элементов заданного массива А[10]. https://www.cyberforum.ru/ pascal/ thread111839.html Посчитайте количество положительных элементов заданного массива А.
Pascal Дано целое число N и набор из N вещественных чисел..... Дано целое число N и набор из N вещественных чисел. Если данный набор образует убывающую последовательность, то вывести 0; в противном случае вывести номер первого числа, нарушающего закономерность. https://www.cyberforum.ru/ pascal/ thread111838.html	Pascal Укажите номер строки программы, в которой допущена ошибка, поставьте запятую, а затем без пробелов запишите строку правильно. Укажите номер строки программы, в которой допущена ошибка, поставьте запятую, а затем без пробелов запишите строку правильно. program rt; var list: array of integer; indx: integer; a:integer; begin writeln('введите а'); read(a); if a=2 then exit;
Pascal Даны координаты вершин треугольника и точки внутри него. Найти расстояние от данной точки до ближайшей стороны треугольника. Друзья, я уже видел темы, где люди просили написать прогу и видел отказы, так как вопросы - пожалуйста, а прогу пиши сам. Это правильно, но у меня как бы такая ситуация: дали 3 задания, которые я сделал, написал три проги, и дали сложное необязательное задание, за которое или поставят 5 или ничего. Но мы его не проходили, поэтому "делай как хочешь". Если поможете - будет супер. "Даны... https://www.cyberforum.ru/ pascal/ thread111818.html	Pascal Дана непустая последовательность ненулевых целых чисел, за которой следует 0(0 - признак конца последовательности) Дана непустая последовательность ненулевых целых чисел, за которой следует 0(0 - признак конца последовательности) Определить, сколько из них принимает наименьшиее значение. Через массив я знаю как сделать, а вот как сделать без него! Добавлено через 17 часов 56 минут помогите пожалуйста... https://www.cyberforum.ru/ pascal/ thread111788.html
рекурсивный подъем и... Pascal здравствуйте, дана строка(последовательность слов), в 3-м слове удалить все вхождения последней буквы строки, с использованием рекурсивного спуска, подъема, и без рекурсии(с использованием цикла). Я разбил строку на слова и записал каждое слово в массив, для подальшей работы только с 3-м элементом массива. Рекурсивный спуск работает, подъем - просто выводит 3-е слово без изменений, а процедура...	Pascal вставка в массив(паскаль) Помогите плиз написать програмку,вставляющую 2 пробела до всех символов,не принадлежащих некоторому множеству,задаваемому с клавиатуры.Нужно очень срочно... https://www.cyberforum.ru/ pascal/ thread111764.html

Law[L]esS

117 / 114 / 89

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

Сообщений: 191

02.04.2010, 12:46

В одномерном массиве из 10 чисел есть положительные и отрицательные числа. Вычислить сумму положительных чисел. - Pascal - Ответ 636972

02.04.2010, 12:46. Показов 2486. Ответов 2

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

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

Решение

Pascal

var
 a:array[1..10] of integer;
 i,sum:integer;
begin
 for i:= 1 to 10 do begin
   a[i]:= random(20)-10;
   write(a[i],' ');
   if a[i] > 0 then sum:= sum + a[i];
 end;
 writeln;
 writeln(sum);
end.

Вернуться к обсуждению:
В одномерном массиве из 10 чисел есть положительные и отрицательные числа. Вычислить сумму положительных чисел. Pascal

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

Заказать работу у эксперта

Programming

Эксперт

39485 / 9562 / 3019

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

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

Блог

02.04.2010, 12:46

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

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

В последовательности действительных чисел a1, a2, …, an есть только положительные и отрицательные элементы. Вычислить произведение отрицательн
В последовательности действительных чисел a1, a2, …, an есть только положительные и...

В одномерном массиве вычислить максимальное число подряд идущих положительных чисел
1). В одномерном массиве вычислить максимальное число подряд идущих положительных чисел, не...

Определить есть ли в массиве положительные, отрицательные числа и нули
Дан одномерный массив. Определить есть ли в этом массиве положительные, отрицательные числа и нули....

	02.04.2010, 12:46

inter-admin

Эксперт

29715 / 6470 / 2152

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

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

Блог

02.04.2010, 12:46

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

В последовательности действительных чисел a1, a2, ..., aN есть только положительные и отрицательные элементы.
Я понимаю что это очень простая и глупая задачка.. но у меня ступор некий возник.. -->в...

Заменить все отрицательные числа в массиве на положительные , а положительные на отрицательные
Существует двумерный массив произвольной размерности . Заменить все отрицательные числа в массиве...

В массиве из 10 чисел есть положительные и отрицательные элементы. Вычислить сумму отрицательных элементов массива
Помогите пожалуйста!

В массиве A, содержащем 10 положительных и отрицательных целых чисел, вычислить сумму положительных элементов
2.В массиве A, содержащем 10 положительных и отрицательных целых чисел, вычислить сумму...

Новые блоги и статьи
Какой локальный веб-сервер выбрать InfoMaster 19.01.2025 В современной веб-разработке локальные веб-серверы играют ключевую роль, предоставляя разработчикам надежную среду для создания, тестирования и отладки веб-приложений без необходимости использования. . .	Почему планшеты и iPad уже не так популярны, как раньше InfoMaster 19.01.2025 Эра революционных инноваций История планшетных компьютеров началась задолго до того, как эти устройства стали привычными спутниками нашей повседневной жизни. В начале 1990-х годов появились первые. . .	Как самому прошить BIOS ноутбука InfoMaster 19.01.2025 BIOS (Basic Input/ Output System) представляет собой важнейший компонент любого компьютера или ноутбука, который обеспечивает базовое взаимодействие между аппаратным и программным обеспечением. . .	Какой Linux выбрать для домашнего компьютера InfoMaster 19.01.2025 Современные реалии выбора операционной системы В современном мире выбор операционной системы для домашнего компьютера становится все более важным решением, которое может существенно повлиять на. . .	Как объединить два словаря одним выражением в Python InfoMaster 19.01.2025 В мире программирования на Python работа со словарями является неотъемлемой частью разработки. Словари представляют собой мощный инструмент для хранения и обработки данных в формате "ключ-значение". . . .	Как без исключения проверить существование файла в Python InfoMaster 19.01.2025 При разработке программного обеспечения на Python часто возникает необходимость проверить существование файла перед выполнением операций с ним. Это критически важная задача, которая помогает избежать. . .
Как определить, содержит ли строка подстроку в JavaScript InfoMaster 19.01.2025 При разработке веб-приложений часто возникает необходимость выполнять различные операции со строками, среди которых особое место занимает поиск подстрок. JavaScript предоставляет несколько встроенных. . .	Что такое метаклассы в Python InfoMaster 19.01.2025 Метаклассы в Python представляют собой один из самых мощных и одновременно сложных механизмов языка, позволяющий программистам контролировать процесс создания классов. По своей сути, метакласс. . .	Как удалить свойство из объекта JavaScript InfoMaster 19.01.2025 В современной веб-разработке объекты JavaScript играют фундаментальную роль в организации и структурировании данных. Они представляют собой контейнеры, которые хранят связанные данные и. . .	Какая разница между String и string в C# InfoMaster 19.01.2025 В языке программирования C# существует интересная особенность: для работы со строками можно использовать как String, так и string. Эта двойственность часто вызывает вопросы у разработчиков, особенно. . .	Как в Git откатить репозиторий к предыдущему коммиту InfoMaster 19.01.2025 В современной разработке программного обеспечения система контроля версий Git стала неотъемлемой частью рабочего процесса, предоставляя разработчикам мощные инструменты для управления изменениями в. . .	Как работают замыкания (closure) в JavaScript InfoMaster 19.01.2025 В мире современной веб-разработки замыкания (closures) представляют собой один из фундаментальных концептов языка JavaScript, который часто вызывает затруднения у начинающих разработчиков, но при. . .

Наверх