Hellride, научись писать заголовки к темам!
| Код | Program banks;
type r = record
b:string;
p:real;
end;
const
n=10;
a:array[1..n] of r = ((b:'Alpha';p:1.3),(b:'beta';p:2),
(b:'gamma';p:4.3),(b:'delta';p:2.8),(b:'epsilon';p:4.3),
(b:'zeta';p:3.4),(b:'eta';p:5.2),(b:'theta';p:3),
(b:'iota';p:5.1),(b:'kappa';p:3));
var
i,imax:integer;
av,max:Real;
begin
av:=0;
max:=a[1].p;
imax:=1;
for i:=1 to n do
begin
av:=av+a[i].p;
if a[i].p > max then
begin
max:=a[i].p;
imax:=i;
end;
end;
av:=av/n;
for i:=1 to n do
if a[i].p < av then writeln('Stavka nizhe sredey u banka: ',a[i].b);
writeln('Max stavka u banka: ',a[imax].b);
readln;
end. |
|