13.05.2009, 18:42
|
|
Новичок
Регистрация: 04.08.2008
Сообщений: 29
Провел на форуме:
167800
Репутация:
15
|
|
2:
PHP код:
const
ARR_MAX=200;
var
a:array[1..ARR_MAX] of Real;
sr:Extended;
n,i:Integer;
begin
WriteLn('N='); Read(n);
for i:=1 to n do
begin
ReadLn(a[i]);
sr:=sr+a[i];
end;
sr:=sr/n;
for i:=1 to n do
if a[i]>sr then WriteLn(a[i]:10:6);
end.
3:
PHP код:
const
ARR_MAX=200;
var
a:array[1..ARR_MAX] of Integer;
n,i,max:Integer;
begin
WriteLn('N='); Read(n);
for i:=1 to n do ReadLn(a[i]);
max:=a[1];
for i:=2 to n do
if a[i]>max then max:=a[i];
WriteLn(max);
end.
|
|
|