Дана последовательность целых положительных чисел?

Finican 9 нояб. 2020 г., 16:02:14

Var m, x, n, p, i : integer ; s : boolean ;

begin

p : = 1 ;

writeln('Vvedite kolichestvo chisel : ') ;

read(n) ;

writeln('Vvedite chislo s kotorim sravnit : ') ;

read(m) ;

writeln('Vvedite cifri : ') ;

for i : = 1 to n do begin

readln(x) ;

if m< ; x then begin p : = p * x ; s : = true ; end ;

end ;

if s = true then writeln('Proizvedenie - ', p) else writeln('Net takih chisel') ;

end.

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

ПАСКАЛЬ?

ПАСКАЛЬ!

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

Aleksandr20103 4 мар. 2020 г., 15:22:42 | 5 - 9 классы

С клавиатуры последовательно вводится 10 чисел?

С клавиатуры последовательно вводится 10 чисел.

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

Срочноо!

Решите пожалуйста на Паскале.

Bjasiya 20 окт. 2020 г., 04:14:28 | 5 - 9 классы

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

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

Найти произведение чисел, оканчивающихся цифрой 5.

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

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

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

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

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

DDDina 17 мар. 2020 г., 18:11:39 | 5 - 9 классы

Дан массив целых чисел?

Дан массив целых чисел.

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

(сделайте в паскале).

Лерасингх 25 мая 2020 г., 18:55:30 | 5 - 9 классы

Дано четыре вещественных числа найти сумму тех чисел которые больше пяти на Паскаль?

Дано четыре вещественных числа найти сумму тех чисел которые больше пяти на Паскаль.

Artem777849 10 нояб. 2020 г., 04:07:57 | 10 - 11 классы

Дана последовательность целых положительных чисел?

Дана последовательность целых положительных чисел.

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

Если таких чисел нет, то выдать сообщение об этом Паскаль!

Можно с обьяснениями плиз)).

Павел104 1 дек. 2020 г., 01:46:20 | 5 - 9 классы

Алгоритм через паскаль Даны три вещественных числа?

Алгоритм через паскаль Даны три вещественных числа.

Вывести на экран те из них, которые являются положительными.

Если таких чисел нет, то вывести сообщение «ПОЛОЖИТЕЛЬНЫХ ЧИСЕЛ НЕТ».

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

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

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

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

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

Islan03 7 дек. 2020 г., 06:48:48 | 10 - 11 классы

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

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

Найти первое отрицательное число этой последовательности.

Заранее благодарю за ответы.