1) var n,i,p:longint;a:array[1..100]of longint; begin read(n);p:=1; for i:=1 to n do read(a[i]); for i:=1 to n do if a[i] mod 3=0 then p:=p*a[i]; writeln(p); end. 2) var n,i,s,p:longint;a:array[1..100]of longint; begin read(n); p:=1;s:=0; for i:=1 to n do read(a[i]); for i:=1 to n do if a[i]>0 then s:=s+a[i]; for i:=1 to n do if a[i]<0 then p:=p*a[i]; if p>s then writeln('proizvedenie') else if p<s then writeln('summa') else writeln('ravni'); end. 3) var n,f,i,o:longint;a:array[1..100]of longint; begin read(n);f:=0; for i:=1 to n do read(a[i]); for i:=n downto 1 do begin if a[i]<0 then f:=f+1; if f=2 then begin o:=a[i];break;end; end; writeln(o); end.
Первая магнитная пленка была создана в 1928 году немецким ученым Фрицем Пфлюмером
Объяснение: