Ввести с клавиатуры массив из 8 целых чисел. Найти в нем элементы, кратные 3, вывести их на экран и подсчитать их произведение .
umbrella31:
на Pascal
Ответы
Ответ дал:
0
var
a:array [0..7] of integer;
i, p:integer;
begin
for i:=0 to 7 do begin
write('['+inttostr(i)+']=');
readln(a[i]);
end;
p:=1;
write('Элементы кратные 3 = ');
for i:=0 to 7 do
if a[i] mod 3 = 0 then begin
write(a[i]+' ');
p := p*a[i];
end;
writeln();
if p<>1 then
write('Произведение элементов кратных 3 =' + p);
end.
Приложения:
Вас заинтересует
3 месяца назад
3 месяца назад
4 месяца назад
4 месяца назад
1 год назад