Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal массив A[1:N, 1M] содержит два одинаковых элемента требуется напечатать их индексы https://www.cyberforum.ru/ turbo-pascal/ thread1034609.html массив A содержит два одинаковых элемента требуется напечатать их индексы	Строки Turbo Pascal Дана строка длиной не более 40 символов. Слова в строке разделены одним пробелом. Последний символ – «.». Удалить из строки слова длиной не более 3-х символов. Нужно написать программу без readkey
Turbo Pascal Одномерный массив Дан 1-о мерный массив. Найти кол-во элементов расположенных м-у 1-м и последним положительным элементом. https://www.cyberforum.ru/ turbo-pascal/ thread1034534.html	Turbo Pascal Модульное программирование. Процедуры-подпрограммы. Написать программный код Здравствуйте! Помогите пожалуйста написать программные коды к двум заданиям. Заранее благодарна! 1) Ввести матрицу А(4, 5). Найти сумму элементов каждого столбца и записать их в виде одномерного массива, а также минимальную из этих сумм. На печать вывести массив сумм и минимум. Поиск минимумов оформить процедурой. Аналогично для В(5, 7) проделайте те же действия. 2) на картинке https://www.cyberforum.ru/ turbo-pascal/ thread1034532.html
Turbo Pascal Процедуры и массивы Найти максимумы трёх различных массивов и вывести их в четвертую строку с использованием процедуры Помогите пожалуйста, очень срочно	Turbo Pascal Создать текстовый файл из 11 строк (Блок-схема) помогите пожалуйста составить блок схему, программа создана. Формулировка задачи: Создать текстовый файл из х=11 строк. В каждой строке до у=63 символов program lr2; uses crt; var i,k,x:integer; F:text; c:char; S:string; begin Assign(F,'text.txt'); https://www.cyberforum.ru/ turbo-pascal/ thread1034526.html
Turbo Pascal Тема:"Подпрограммы" https://www.cyberforum.ru/ turbo-pascal/ thread1034515.html Нужна помощь, не знаю как решить. Даны действительные числа a0, a1, a2, a3. Получить для х = 1, 3, 4 значения р(х+1) - р(х), где р(у) = a3y3 + a2y2 + a1y + a0. Определить функцию р(у).	Turbo Pascal Функции рекурсия 1 Дано натуральное число N. Выведите все его цифры по одной, в обратном порядке, разделяя их пробелами или новыми строками.При решении этой задачи нельзя использовать строки, списки, массивы (ну и циклы, разумеется). Разрешена только рекурсия и целочисленная арифметика. 2 Дано натуральное число N. Выведите все его цифры по одной, в обычном порядке, разделяя их пробелами или новыми строками.При...
Turbo Pascal Найти корни уравнения Отыскание корня уравнения F(x)=0 с точностью до 0,0001 , методом простой интеграции. f(x)=sin^2(x)-x+1. B=2 Результат решения: Корень уравнения X https://www.cyberforum.ru/ turbo-pascal/ thread1034510.html	Turbo Pascal Лабораторная работа №18. Тема: «Разработка алгоритмов и программ с использованием алгоритмов на графах» https://www.cyberforum.ru/ turbo-pascal/ thread1034505.html Задания для самостоятельного решения. 1. Написать рекурсивную процедуру для ввода с клавиатуры последовательности чисел (окончание ввода – 0) и вывода ее на экран в обратном порядке. 2. Используя рекурсию написать программу перевода натурального числа из десятичной системы счисления в двоичную.
Лабораторная работа №20. Тема: «Разработка программ создания, корректировки и просмотра типизированных файлов» Turbo Pascal Задание для самостоятельного решения: 1. Дан файл F, элементами которого являются числа. Найти: a) Количество элементов в файле b) Наибольший из элементов. Если имеется несколько таких элементов, то посчитать их количество c) Среднее арифметическое элементов 2. Даны файлы F и G, элементами которых являются символы. Записать с файл Н: а) все элементы файлов F и G; ...	Turbo Pascal Функция Помогите написать программу решения функции, где a и b задаются рандомно. y=\sum_{i=1}^{100}\frac{{a}_{i}*{b}_{i}}{{a}^{2}_{i}+{b}^{2}_{i}} https://www.cyberforum.ru/ turbo-pascal/ thread1034498.html

antibenzin

27 / 27 / 39

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

Сообщений: 64

09.12.2013, 19:48

Заполнить линейный массив из N элементов числами от -15 до 15 и вывести на экран сумму всех его отрицательных элементов - Turbo Pascal - Ответ 5463529

09.12.2013, 19:48. Показов 3939. Ответов 1

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

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

Решение

Pascal

var a:array[1..1000] of integer;
i,s,n:integer;
begin
readln(n);
s:=0;
for i:=1 to n do
begin
a[i]:=random(31)-15;
write(a[i],' ');
if a[i]<0 then s:=s+a[i];
end;
writeln;
writeln(s);
end.

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

Сообщений: 116,782

09.12.2013, 19:48

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

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

Заполнить массив случайными числами и вывести на экран сумму второго и предпоследнего элементов
Заполнить массив случайными числами и вывести на экран сумму второго и предпоследнего элементов.

Массив в 10 элементов заполнить случайными двухзначными числами, вывести на экран сумму четных чисел.
Ребят помогите ломаю голову сижу.... вообщем в qbasic'e Задача 1 : Массив в 10 элементов...

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

	09.12.2013, 19:48

IT_Exp

Эксперт

87844 / 49110 / 22898

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

Сообщений: 92,604

09.12.2013, 19:48

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

Дан двумерный массив A[5,6]. Заполнить его случайными числами в промежутке от 30 до 100, сравнить суммы элементов столбцов, вывести сумму наибольшего
Дан двумерный массив A. Заполнить его случайными числами в промежутке от 30 до 100, сравнить суммы...

Создать массив из 15 элементов, заполнить его случайными числами. Создать новый массив из отрицательных элементов
Создать массив из 15 элементов, заполнить его с помощью случайных чисел. Создать новый массив из...

Заполнить вектор из 20 элементов случайными числами в интервале [-15;10] и вывести его на экран.
Заполнить вектор из 20 элементов случайными числами в интервале и вывести его на экран. Найти...

Создать и заполнить массив случайными числами и вычислить сумму его элементов
Привет ребята, подскажите как реализовать вот это задание? "используя указатели, нписать...

Наверх