Const n=4;
var A:array [1..n] of real;
i,max,j:integer;
maxs:real;
begin
for i:= 1 to n do
readln(A[i]);
for i:= 1 to n do
for j:= 1 to n do
if A[i]>A[j] then
begin
maxs:=A[i];
max:=i;
end;
writeln(maxs,' ',max)
<span>end.</span>
Program
pr1;
uses
graph,crt;
var
gd,gm:integer;
begin
gd:=0;gm:=0;
initgraph(gd,gm,
'c:\bp\bgi');
setcolor(12);
circle(200,200,50);
line(200,202,200,175);
line(200,202,180,202);
arc(200,150,0,180,15);
line(190,250,155,265);
line(210,250,240,265);
line(155,265,240,265);
outtextXY(193,155,'12');
outtextXY(195,235,'6');
outtextXY(235,200,'3');
outtextXY(155,200,'9');
readln;
readln;
<span>closegraph;
end.</span>
1-нематериальные
2-смешанные
3-материальные
4-природные
5-технические
Const nx=30;
var a:array[1..nx] of string; p,i,j,n,k:integer; s,d:string;begin
s:='Дана строка символов состоящий из отдельных слов разделенных пробелом';
s:= s + ' Упорядочить слова по длине в убыванию и вывести на печать';
p:=1;while p>0 do begin
i:= i + 1; p:= pos(' ',s);
if p>0 then a[i]:=trim(copy(s,1,p)) else a[i]:=s;writeln(a[i]);Delete(s,1,p);end;
for k:=1 to i do begin
for j:=2 to i do begin
if length(a[j-1]) < length(a[j]) then begin
d:=a[j-1];a[j-1]:=a[j];a[j]:= d;end;end;end;
writeln;
for k:=1 to i do
<span>writeln(a[k]);end.</span>
<span>9-25-41-57-73-89-105-121 будет так)*=Р</span>