Есть ответ 👍

Вмассиве a1, найти произведение чисел меньших или равных 2

151
191
Посмотреть ответы 2

Ответы на вопрос:


Program chik3; const n=50; var a,b: array[1..30]of real; i: integer; p: real; beginp: =1; for i: =1 to n dobeginread(a[i]); if(a[i]< =2)then p: =p*a[i]; end; writeln(p);   end.  

1) 32*40*70*16/8=179200 байт = 175кбайт 2)    ответ: 384 досье

Популярно: Информатика