Дан одномерный массив из 50 чисел..составить программу,которая находит произведение элементов массива равных 20 и выводит его на экран.массив вводится с клавиатуры.ПОМОГИТЕ ПОЖАЛУЙСТА !ОЧЕНЬ НАДО!
Дан одномерный массив из 50 чисел..составить программу,которая находит произведение элементов массива равных 20 и выводит его на экран.массив вводится с клавиатуры.ПОМОГИТЕ ПОЖАЛУЙСТА !ОЧЕНЬ НАДО!
Гость
Ответ(ы) на вопрос:
Гостьconst
n=50;
var
a:array[1..n] of integer;
i,p:integer;
begin
p:=1;
for i:=1 to n do
begin
writeln('Введите элемент №',i);
readln(a[i]);
if a[i]=20 then
p:=p*a[i];
end;
writeln('Произведение =',p);
end.
Не нашли ответ?
Похожие вопросы