Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Записать в другой файл все строки, длина которых больше 5 символов Дан текстовый файл. Записать в другой файл все строки, длина которых больше 5 символов. Помогите пжлст https://www.cyberforum.ru/ pascal/ thread1887376.html	Подсчитать количество строк, в которых вторым стоит символ «+», а предпоследним «-» Pascal Дан текстовый файл. Подсчитать количество строк, в которых вторым стоит символ «+», а предпоследним «-».
Pascal Вычислить площадь фигуры, заданной сторонами. https://www.cyberforum.ru/ pascal/ thread1887313.html Вычислить площадь фигуры, заданной сторонами. Фигура не является прямоугольником, а треугольники, которые ее составляют, не являются прямоугольными.	Pascal Огонь на Pascale (или ABC, или Free, или Turbo) Пожалуйста, обрадуйте кто нибудь, кодом Движения Огня на Pascale. https://www.cyberforum.ru/ pascal/ thread1887138.html
Pascal Записать формулы на языке Pascal Помогите, необходимо выполнить следующее: 1) y=\frac{\sqrt{cx-\operatorname{e}^x}}{ab\cdot \sin ^2x} 2)	Pascal Выдать список абонентов, телефон которых имеет коммутатор 34. Найти номер телефона по заданной фамилии В массиве из записей хранятся сведения из телефонного справочника: фамилия, инициалы, номер телефона. Выдать список абонентов, телефон которых имеет коммутатор 34. Найти номер телефона по заданной фамилии. https://www.cyberforum.ru/ pascal/ thread1886848.html
Pascal Отсортировать элементы массива по не возрастанию https://www.cyberforum.ru/ pascal/ thread1886717.html Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка . Отсортировать элементы массива по невозрастанию.	Найти номер первого из элементов массива, имеющего нулевое значение Pascal Задан массив С из 10 элементов. Найти номер первого из элементов массива С, имеющего нулевое значение. Если таких элементов нет, вывести соответствующее сообщение.
Pascal Определение суммы всех нечетных чисел, кратных 3 в диапазоне от 1 до 99 включительно https://www.cyberforum.ru/ pascal/ thread1886605.html Напишите программу определения суммы всех нечетных чисел, кратных 3 в диапазоне от 1 до 99 включительно.	Pascal Если можно построить треугольник по трем данным отрезкам, то вычислить его периметр и площадь Даны длины трех отрезков a, b, c. Если можно построить треугольник по этим трем отрезкам, то вычислить его периметр и площадь. https://www.cyberforum.ru/ pascal/ thread1886604.html
Вычислить значение выражения по формуле (все переменные принимают только вещественные значения) S=ah - площадь Pascal помогите с паскалем)	Pascal Анимация. Божья коровка Нарисовать бабочку-коробочку, создать анимацию. одна надежда на вас https://www.cyberforum.ru/ pascal/ thread1886550.html

cfbogd

botsik

262 / 262 / 140

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

Сообщений: 1,247

Записей в блоге: 1

12.01.2017, 00:26

Заменить каждый отрицательный элемент массива произведением всех ненулевых элементов - Pascal - Ответ 9994805

12.01.2017, 00:26. Показов 1291. Ответов 5

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

Ответ

Kris2016,

Pascal

const n=8;
var a:array [1..n] of integer;
i:integer;
begin
i:=1;
while i<>n do
begin
read(a[i]);
inc(i);
end;
writeln('____________');
i:=1;
repeat
writeln(a[i]);
inc(i);
until i=n;
end.

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

12.01.2017, 00:26

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

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

Каждый отрицательный элемент массива заменить полусуммой соседей
Составить программу. Пусть дан массив из n элементов.Каждый отрицательный элемент замените...

массиве А(n) каждый элемент, заменить суммой всех предыдущих элементов первый заменить на 0
помогите пожалуйста! Например, в массиве 5 чисел: 1,2,3,4,5 Они должны заменяться таким образом: A...

Подпрограммы: разделить каждый из элементов массива на его максимальный отрицательный элемент
Ввести одномерные массивы X1(n1), X2(n2) и X3(n3) . Разделить каждый из элементов на максимальный...

	12.01.2017, 00:26

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

12.01.2017, 00:26

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

каждый элемент, кроме первого, заменить суммой всех предыдущих элементов
В МАССИВЕ А(n) каждый элемент, кроме первого, заменить суммой всех предыдущих элементов. Не...

в массиве А(n) каждый элемент, кроме первого, заменить суммой всех предыдущих элементов
Помогите, пожалуйста!!! Нужно решить задачу: в массиве А(n) каждый элемент, кроме первого, заменить...

Каждый отрицательный элемент в массиве заменить результатом его целочисленного деления на 3
Ввести двумерный массив A(N x M). Каждый отрицательный элемент в массиве заменить результатом его...

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

Наверх