сервис вопросов и ответовсоставить программу вычисления произведения не нулевых элементов массива (а) вещественных чисел [1..5] .........решите пожалуйста
10-11 класс|
|
Silicon
05 февр. 2014 г., 10:54:56 (10 лет назад)
666666662
05 февр. 2014 г., 11:43:14 (10 лет назад)
var
a: array [1..5] of real; //Массив из пяти вещественных элементов
i: integer; //Переменная для цикла
s: real; //Значение произведения
begin
s:= 1;
for i:= 1 to 5 do //Вводим элементы массива
begin
writeln('Введите ', i, ' элемент массива');
readln(a[i]);
if a[i] <> 0 then s:= s * a[i]; {Если элемент массива не равен 0, то умножаем значение произведения на элемент массива}
end;
writeln('Произведение не нулевых элементов массива: ', s); {Выводим значение произведения}
end.
Ответить
Другие вопросы из категории
Задан линейный массив С из N элементов. Подсчитайте произведение четных элементов массива. Составьте блок-схему и программу. Ребят
ООООООООООчень срочно !!!!!
Паскаль, хелп
Если писать программу без имени(program name;)
В каком случае это делать можно, а в каком нет Hpvm сейчас
1.Какие существуют основные философские концепции? 2.Какая, с вашей точки зрения, концепция является наиболее верной? 3.Благодаря развитию каких наук
понятие информации стало широко употребляемым? 4.В каких биологических науках активно используется понятие информации? 5.Что такое наследственная информация? 6.К какой философской концепции, на ваш взгляд, ближе употребление понятия информации в генетике? 7.Если под информацией понимать только то, что распространяется через книги, рукописи, произведения искусства, средства массовой информации, то к какой философской концепции её можно будет отнести?
Читайте также
Составить программу на языке Паскаль: 1)Для массива K из 12 вещественных чисел определить сколько элементов массива меньше 0. 2)В массиве М из 10 целых
чисел найти количество элементов равных 3. 3)В массиве из 8 целых найти номер массива с наибольшим значением. 4)В массиве из 12 целых чисел найти количество и сумму элементов, расположенных до максимального элемента. 5)Для массива из 15 вещественных подсчитать количество элементов массива меньших суммы первого и последнего элементов массива.
составить программу 1)найти сумму всех элементов массива (1до10) random. 2)сформировать массив из положительных и отрицательных элементов
от -10 до 30.найти кол-во положит и отриц элементов.найти сумму положит и произведение отриц.
Помогите пожалуйста!! ) составить программу в "Pascal abc"!!)
Составить программу вычисления значений функции F(x) на отрезке [а; b] с шагом h.
Результат представить в виде таблицы, первый столбец которой — значения
аргумента, второй — соответствующие значения функции: "F(x) = 1/2 ctg x/4+4"
Вы находитесь на странице вопроса "составить программу вычисления произведения не нулевых элементов массива (а) вещественных чисел [1..5] .........решите пожалуйста", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.