помогите с информатикой! заранее спасибо
Дано 10 чисел. Найти произведение чисел, которые больше 0. паскаль
Ответы
Ответ дал:
0
Ответ:
var a:array [1..100] of integer;
var n,i,k :integer;
begin
k:=1;
for i:=1 to 10 do begin
read (a[i]);
if a[i]<10 then k:=a[i]*k;
end;
write(k);
end.
Вас заинтересует
1 год назад
1 год назад
2 года назад
8 лет назад