Pascal Дан массив А из n действительных чисел : a1, …, an?

Prototype493 29 июн. 2018 г., 09:16:06

Пожалуйста, добавляйте подобные задания в раздел Информатика.

Там оно найдет решение гораздо быстрее.

Uses crt ;

var a : array[1.

100] of integer ;

n, i, p, q, pr, w, s : integer ;

begin clrscr ; randomize ; pr : = 1 ; w : = 1 ; write('p = ') ; read(p) ; write('q = ') ; read(q) ; write('n = ') ; read(n) ; clrscr ; writeln('Исходный массив : ') ; for n : = 1 to n do begin a[n] : = random(100) - 50 ; s : = s + a[n] ; write(a[n], ' ') ; end ; w : = 2 * sqr(s) ; writeln ; writeln('Новый массив : ') ; for n : = 1 to n do begin if (abs(a[n]) mod p = 0) and (a[n]< ; > ; 0) then pr : = pr * a[n] ; if (a[n] mod p = q)then a[n] : = 0 ; write(a[n], ' ') ; end ; writeln ; writeln('Значение выражения : ', w) ; write('Произведение элементов массива, кратных ', p, ' : ', pr) ;

end.

Aidin1 18 мая 2018 г., 01:10:24 | 10 - 11 классы

Дан массив MAS вещественного типа, содержащий 20 положительных и отрицательных элементов?

Дан массив MAS вещественного типа, содержащий 20 положительных и отрицательных элементов.

Сформировать массив С из положительных элементов массива MAS , имеющих четный индекс.

Найти сумму квадратов элементов нового массива.

Sashulya98 8 окт. 2018 г., 21:05:37 | 10 - 11 классы

Приведите пример трехзначного натурального числа большего 900, которое при делении на 5 дает остаток 1, а при делении на 7 дает остаток 3, при чем в нем только две четных цифры?

Приведите пример трехзначного натурального числа большего 900, которое при делении на 5 дает остаток 1, а при делении на 7 дает остаток 3, при чем в нем только две четных цифры.

Mahapopova10let 16 янв. 2018 г., 01:11:45 | 10 - 11 классы

ПОЖАЛУЙСТА ПОМОГИТЕ?

ПОЖАЛУЙСТА ПОМОГИТЕ!

Определить сумму элементов массива с k1 по k2 (значения k1 и k2 вводятся с клавиатуры k2> ; k1).

Отличник17 26 мар. 2018 г., 01:44:06 | 1 - 4 классы

3. Множество А содержит 5 элементов, множество В – 4 элемента, а их пересечение содержит 2 элемента?

3. Множество А содержит 5 элементов, множество В – 4 элемента, а их пересечение содержит 2 элемента.

Сколько элементов содержит объединение множеств А и В?

Muhammabali 17 янв. 2018 г., 03:47:08 | 10 - 11 классы

Укажите названия единицы наследственной информации и структурного элемента клетки, в котором эта информация содержится?

Укажите названия единицы наследственной информации и структурного элемента клетки, в котором эта информация содержится.

Как называется часть клетки, в которой находится этот структурный элемент?

Milena10331 22 нояб. 2018 г., 19:44:58 | 10 - 11 классы

Определить количество и вычислить сумму элементов одномерного массива N, кратных трем?

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

Ni / 3 * 3 = ni.

Веня666 22 июн. 2018 г., 07:56:59 | 5 - 9 классы

Составить блок - схему и программу поиска наибольшего элемента массива?

Составить блок - схему и программу поиска наибольшего элемента массива.

Malinka0412 25 авг. 2018 г., 08:17:30 | 10 - 11 классы

Помогите сделать программу и блок - схему : Подсчитайте число и сумму положительных, число и произведение отрицательных элементов заданного массива A(N)?

Помогите сделать программу и блок - схему : Подсчитайте число и сумму положительных, число и произведение отрицательных элементов заданного массива A(N).

Программа на С + +.

Катёнок16 13 дек. 2018 г., 13:08:43 | 10 - 11 классы

Перечислите элементы которые должна включать в себя телефонная станция?

Перечислите элементы которые должна включать в себя телефонная станция.

Lololohka1 26 нояб. 2018 г., 08:24:43 | 10 - 11 классы

Форма поверхности раскола, на которой нельзя обнаружить элементов спайности?

Форма поверхности раскола, на которой нельзя обнаружить элементов спайности.