Информатика | 10 - 11 классы
Дана последовательность целых положительных чисел.
Найти произведение только тех из них которые больше заданного числа m.
Если таких чисел нет, то выдать сообщение об этом Паскаль!
Можно с обьяснениями плиз)).
ПАСКАЛЬ?
ПАСКАЛЬ!
Найти величину наибольшего из отрицательных чисел последовательности из 100 целых чисел.
Записать, как програму в паскале Дана последовательность чисел, оканчивающихся нулем?
Записать, как програму в паскале Дана последовательность чисел, оканчивающихся нулем.
Найти произведение чисел, оканчивающихся цифрой 5.
Дана непустая последовательность положительный целых чисел, за которой следует 0?
Дана непустая последовательность положительный целых чисел, за которой следует 0.
Найти сумму всех четных чисел этой последовательности
Записать, как программу в паскале.
Дан массив целых чисел?
Дан массив целых чисел.
Найти количество тех элементов, значение которых положительны и не превосходят заданного натурального числа А.
(сделайте в паскале).
Дано четыре вещественных числа найти сумму тех чисел которые больше пяти на Паскаль?
Дано четыре вещественных числа найти сумму тех чисел которые больше пяти на Паскаль.
Даны три целых числа?
Даны три целых числа.
Определить, сколько среди них положительных чисел.
Составить программу на языке Паскаль.
Дана последовательность целых положительных чисел?
Дана последовательность целых положительных чисел.
Найти произведение только тех чисел, которые больше заданного числа М.
Если таких нет выдать сообщение об этом.
На Паскале.
Срочно, и пожалуйста, без заумных команд, а так чтобы понятно было!
Дан массив целых чисел, состоящий из 10 элементов?
Дан массив целых чисел, состоящий из 10 элементов.
Заполнить его с клавиатуры.
Найти : - Удвоенную сумму положительных элементов ; - Вывести значения тех элементов, которые меньше заданного числа А кратны 3.
Алгоритм через паскаль Даны три вещественных числа?
Алгоритм через паскаль Даны три вещественных числа.
Вывести на экран те из них, которые являются положительными.
Если таких чисел нет, то вывести сообщение «ПОЛОЖИТЕЛЬНЫХ ЧИСЕЛ НЕТ».
Дана последовательность чисел, заканчивающаяся нулем?
Дана последовательность чисел, заканчивающаяся нулем.
Найти сумму отрицательных и произведение положительных чисел.
Напишите в паскале.
Вы находитесь на странице вопроса Дана последовательность целых положительных чисел? из категории Информатика. Уровень сложности вопроса рассчитан на учащихся 10 - 11 классов. На странице можно узнать правильный ответ, сверить его со своим вариантом и обсудить возможные версии с другими пользователями сайта посредством обратной связи. Если ответ вызывает сомнения или покажется вам неполным, для проверки найдите ответы на аналогичные вопросы по теме в этой же категории, или создайте новый вопрос, используя ключевые слова: введите вопрос в поисковую строку, нажав кнопку в верхней части страницы.
Program test ;
var a : array[1.
10] of integer ; m, i : integer ;
total : longint ;
begin randomize ; total : = 1 ; for i : = 1 to 10 do begin a[i] : = random(20) + 1 ; write(a[i], ' ') ; end ; writeln() ; write('Enter the number : ') ; readln(m) ; for i : = 1 to 10 do begin if a[i] > ; m then total : = total * a[i] ; end ; if total > ; 1 then writeln('Total = ', total) else writeln('Error') ; readln ;
end.