program Massiv;
var
k,m:array[1..35] of real;
i,n:integer;
s,max,min:real;
begin
randomize;
for i:=1 to 35 do
k[i]:=25-(random(500))/10;
writeln('Massiv K');
for i:=1 to 35 do
writeln(k[i]:4:2);
max:=k[1];
min:=k[1];
for i:=1 to 35 do
begin
if k[i]>max
then
max:=k[i];
if k[i]<min
then
min:=k[i];
end;
writeln;
s:=(max+min)/3;
writeln('max=',max:4:2);
writeln('min=',min:4:2);
n:=0;
for i:=1 to 35 do
begin
if k[i]>s
then
begin
inc(n);
m[n]:=k[i];
end;
end;
writeln('Massiv M');
for i:=1 to n do
writeln(m[i]:4:2);
readln;
end. |
