function Maxii(ar:MyArr): integer; var i,max:integer; begin; Max:=-2147483648; for i:=1 to n do if ar[i]>max then begin; max:=ar[i]; maxii:=i; end; end;
function Amp(ar:MyArr):integer; var i,max,s:integer; p:real; begin; Max:=-2147483648; for i:=1 to n do if ar[i]>max then max:=ar[i]; p:=max/100*10; for i:=1 to n do if ar[i]>=max-p then inc(s); Amp:=s; end;
begin; for i:=1 to n do begin; readln(ar[i]); k:=k+ar[i]; end; k:=k/n; writeln('Средний рост:',k); maxi:=maxii(ar); writeln('Самый высокий призывник:',maxi); val:=Amp(ar); writeln('4:',val); end.
1) var a,b,e:real; begin write('Сколько стоит компьютер - '); readln(b); write('Сколько денег у покупателя - '); readln(a); e:=a-b; if e>0 then writeln('Покупателю хватит денег на покупку компьютера ценой - ',b,'руб.') else begin e:=e*(-1); write('Покупатель не сможет купить компьютер ценой - ',b,'руб. Ему не хватает - ',e,'руб.'); end; end. 2) var a,b,e:real; begin write('Длина забора (м) - '); readln(b); write('Длина сетки (м) - '); readln(a); e:=a-b; if e>0 then writeln('Сетки хватит чтобы обнести забор.') else begin e:=e*(-1); write('Сетки не хватит чтобы обнести забор.'); end; end.
n=5;
type
MyArr=array[1..n] of integer;
var ar:MyArr;
i,maxi,val:integer;
k:real;
function Maxii(ar:MyArr):
integer;
var i,max:integer;
begin;
Max:=-2147483648;
for i:=1 to n do
if ar[i]>max then
begin;
max:=ar[i];
maxii:=i;
end;
end;
function Amp(ar:MyArr):integer;
var i,max,s:integer;
p:real;
begin;
Max:=-2147483648;
for i:=1 to n do
if ar[i]>max then max:=ar[i];
p:=max/100*10;
for i:=1 to n do
if ar[i]>=max-p then inc(s);
Amp:=s;
end;
begin;
for i:=1 to n do
begin;
readln(ar[i]);
k:=k+ar[i];
end;
k:=k/n;
writeln('Средний рост:',k);
maxi:=maxii(ar);
writeln('Самый высокий призывник:',maxi);
val:=Amp(ar);
writeln('4:',val);
end.