| program univers; |
| var i,n, imin, imax,p :integer; |
| var s,min,max,k,k1,k2:integer; |
| var sr :real; |
| x:array[1..25] of integer; |
| begin |
| read(n); |
| for i:=1 to n do read(x[i]); |
| s:=0; |
| for i:=1 to n do s:=s+x[i]; |
| k:=0;// общее |
| for i:=1 to n do inc(k); |
| k1:=0;// полжительные |
| k2:=0; // отрицательные |
| for i:=1 to n do if x[i]<0 then inc(k2); |
| P:=1; |
| for i:=1 to n do P:=p*x[i]; |
| sr:=s/k; |
| max:=x[1];// максимум |
| for i:=2 to n do if x[i]>max then max:=x[i]; |
| imax:=1; |
| for i:=2 to n do if x[i]>imax then imax:=i; |
| min:=x[1]; |
| for i:=2 to n do if x[i]<min then min:=x[i]; |
| imin:=1; |
| for i:=2 to n do if x[i]<imin then imin:=i; |
| write(k,' ',s,' ',k1,' ',k2, ' ',p,' ',sr,' ',max,' ',imax,' ',min,' ',imin ); |
| end. |
| //integer взят чтоб можно было использовать inc() |
| |
Популярная музыка
Популярные игры
Популярные программы
Популярный фильм
283 
21 