найдите произведение элементов одномерного массива из 7 элементов значение которых вводится через клавиатуру и является целым.
5-9 класс
|
Хелп!!!
uses crt;
const n=7;
var a:array[1..n] of integer;
i,pr:integer;
begin
pr:=1;
for i:=1 to n do
begin
readln(a[i]);
pr:=a[i]*pr;
end;
writeln;
writeln(pr);
end.
Другие вопросы из категории
Построй
блок-схему или напиши программу на языке Паскаль для решения следующей задачи:
решите пожалуйста, если можно с подробным решением
Читайте также
1.Найдите количество отрицательных элементов с четными номерами.
2.Найдите произведение элементов, стоящих после 0. Массив нулем не заканчивается.
В Pascal
задачи:
1.Найдите сумму всех элементов одномерного числового массива.
2.найдите произведение всех элементов одномерного числового массива.
3.найдите количество отрицательных элементов одномерного числового массива.
4.найдите количество нечетных элементов одномерного числового массива.
5.найдите количество элементов одномерного числового массива <20.
6.найдите количество кратных 7 элементов одномерного числового массива.
7.найдите сумму элементов одномерного числового массива=8.
8.найдите сумму кратных 11 элементов одномерного числового массива.
9.найдите сумму чётных элементов одномерного числового массива.
10.найдите произведение кратных 3 элементов одномерного числового массива.
11.найдите произведение элементов одномерного числового массива >2 и <5.
12.вывести на экран элементов одномерного числового массива >15.
13.вывеси на экран элементов одномерного числового массива кратных 21.
14.вывести на экран четные элементов одномерного числового массива.
2. Создать массив A из 10 элементов, заполненный случайным образом числами принадлежащих промежутку (0;20). Вывести полученный массив на экран. Вычислить количество элементов массива, значения которых не превышают среднее арифметическое значений его элементов.
строку данный массив. Найти сумму неположительных элементов массива,количество элементов кратных 3, произведение элементов,стоящих на четных местах