Дана последовательность чисел?

Irinaknd11 23 июл. 2020 г., 22:35:14

Program q1 ;

uses crt ;

const n = 10 ;

var i, j : integer ; mass : array [1.

N] of integer ; countNum : integer ; / / переменная для хранения количества нечетных чисел proizv : integer ; / / переменная для хранения произведения нечетных чисел

BEGIN

proizv : = 1 ; / / так как, изначально равно 0, а при умножении на 0 будет всегда 0

{создание последовательности n целых чисел}

Writeln('Случайные целые числа : ') ;

for i : = 1 to n do begin mass[ i ] : = random(9) + 1 ; / / присваеваем переменной случайное значение от 1 до 10 write(inttostr(mass[ i ]) + ', ') ; end ;

{Вычисление произведения и количества нечетных чисел}

for i : = 1 to n do if mass[ i ] mod 2 < ; > ; 0 then / / проверяем не четное - ли число, если да, то.

. begin inc(countNum) ; / / увеличиваем на один кол - во нечетных чисел proizv : = proizv * mass[ i ] ; / / высчитываем произведение end ;

{Вывод результатов}

writeln ;

writeln('Всего нечетных чисел : ' + inttostr(countNum)) ;

writeln('Их произведение : ' + inttostr(proizv)) ;

END.

МасиМУШка 23 сент. 2020 г., 02:31:10 | 5 - 9 классы

Дано 4 числа найти сумму чисел, извлечь количество сотен, если четное, то найти среднее этих чисел, а , если нет, то произведение?

Дано 4 числа найти сумму чисел, извлечь количество сотен, если четное, то найти среднее этих чисел, а , если нет, то произведение.

Kolyan4iklol 24 нояб. 2020 г., 08:30:37 | 5 - 9 классы

ПАСКАЛЬ?

ПАСКАЛЬ!

Найти величину наибольшего из отрицательных чисел последовательности из 100 целых чисел.

Jorjiya 21 дек. 2020 г., 13:54:33 | 10 - 11 классы

Даны 5 чисел, найти сумму и кол - во положительных и произведение и кол - во отрицательных?

Даны 5 чисел, найти сумму и кол - во положительных и произведение и кол - во отрицательных.

Klimova14355 7 янв. 2020 г., 18:01:34 | 10 - 11 классы

Дан массив из 10 целых чисел найти произведение элементов массива с четными индексами?

Дан массив из 10 целых чисел найти произведение элементов массива с четными индексами.

Olga050577 16 дек. 2020 г., 12:21:35 | 5 - 9 классы

Дана непустая последовательность положительный целых чисел, за которой следует 0?

Дана непустая последовательность положительный целых чисел, за которой следует 0.

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

Записать, как программу в паскале.

Максим3467 24 июл. 2020 г., 23:49:16 | 5 - 9 классы

Срооооочно?

Срооооочно!

Вводится последовательность из N целых чисел.

Найти количество четных чисел.

Rjrjhtdf84 7 мая 2020 г., 23:26:52 | 5 - 9 классы

Дана последовательность чисел, заканчивающаяся нулем?

Дана последовательность чисел, заканчивающаяся нулем.

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

Напишите в паскале.

Volkova011 12 янв. 2020 г., 10:43:42 | 5 - 9 классы

Вводится последовательность из 15 целых чисел?

Вводится последовательность из 15 целых чисел.

Найти произведение четных из них.

Imanzagir19808 3 дек. 2020 г., 12:16:02 | 10 - 11 классы

Дана последовательность чисел a i (i = 1, 2?

Дана последовательность чисел a i (i = 1, 2.

, N) подсчитать произведение и количество четных чисел вывести их значения и порядковые номера.

Zenkova929 24 июл. 2020 г., 13:36:47 | 10 - 11 классы

Pascal?

Pascal.

Дана последовательность чисел .

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