составить программу как найти произведение элементов массива. массив состоит из 7 элементов
5-9 класс
|
var a:array [1..7] of integer; i,p:integer;
begin
a:=1;
for i:=1 to 7 do
begin
readln(a); p:=p*a;
end;
writeln('Произведение = ',p);
readln;
end.
Var
m: array {1..7] of integer;
a: integer
Begin
For i:= 1 to 7 do
Readln (m[i])
a:= m[i] * m[i]
Write (a);
end.
Может и не верно, но посмотри вроде верно, могути быть ошибки я ведь только начинающий програмист
Другие вопросы из категории
Имеются два числа:
а) вычислите сумму и разность этих чисел, используя два оператора readln.
б) перепишите программу так, чтобы использовался один оператор readln.
в) добавьте комментарии к программе.
Найти средний рост класса. Написать программу. 10 человек
Самый наименьший рост 162 самый высокий 170
Читайте также
2. Массив из 6 отрицательных и положительных целых чисел вводится в области описания констант. Найти сумму положительных элементов массива.
3. Массив из 5 целых чисел вводится с клавиатуры в строку. Найти сумму элементов массива, стоящих на чётных позициях. Вывести исходный массив и полученную сумму.
4. Массив из 40 целых чисел из промежутка [10,90] задается с помощью генератора случайных чисел. Найти сумму элементов массива, кратных n . Вывести исходный массив и полученную сумму.
Помогите кто в чем может.
элементов. 3) Составьте программу вычисления среднего арифметического элементов массива. Пожалуйста.. очень надо!
в,их значения и количество.
2.В одномерном массиве целых чисел,содержащем 20 элементов,удалить k-ый элемент массива.Массив заполняется случайным образом числами от 0 до 50.
строку данный массив. Найти сумму неположительных элементов массива,количество элементов кратных 3, произведение элементов,стоящих на четных местах
2). Дан массив из n элементов. Написать программу подсчитывающую произведение элементов массива.