Const n=50;m=50; var a:array[1..n,1..m]of integer; i,j,k,x,h:integer; begin readln(x); for i:=1 to n do begin h:=0; writeln; for j:=1 to m do begin a[i,j]:=random(100); write(a[i,j]:4); if a[i,j]<=x then h:=h+1 end; if h=m then k:=k+1; end; writeln; writeln(k); end.
Var N1:array[1..10] of integer; N2:array[1..15] of integer; R1:array[1..10] of integer; R2:array[1..15] of integer; min1, min2, max1, max2, i:integer; R1min, R2min, R1max, R2max:integer; begin min1:=500; min2:=500; max1:=0; max2:=0; randomize; for i:=1 to 10 do N1[i]:=random(900)+100; for i:=1 to 15 do N2[i]:=random(900)+100; for i:=1 to 10 do R1[i]:=random(500); for i:=1 to 15 do R2[i]:=random(500); for i:=1 to 10 do if R1[i]<min1 then begin min1:=R1[i]; R1min:=i; end else begin if R1[i]>max1 then begin max1:=R1[i]; R1max:=i; end; end; for i:=1 to 15 do if R2[i]<min2 then begin min2:=R2[i]; R2min:=i; end else begin if R2[i]>max2 then begin max2:=R2[i]; R2max:=i; end; end; writeln('v 1 taxoparke min ', N1[R1min]); writeln('vo 2 taxoparke min ', N2[R2min]); writeln('v 1 taxoparke max ', N1[R1max]); writeln('vo 2 taxoparke max ', N2[R2max]); write('N1 '); for i:=1 to 10 do write(N1[i], ' '); writeln; write('R1 '); for i:=1 to 10 do write(R1[i]:3, ' '); writeln; write('N2 '); for i:=1 to 15 do write(N2[i], ' '); writeln; write('R1 '); for i:=1 to 15 do write(N1[i]:3, ' '); writeln; end.
Как-то даже не хочется размышлять, как можно было это решить по-нормальному...
var s:string; a:array[1..4] of byte; i:integer; begin read(s); for i:=1 to length(s) do begin if s[i]='(' then a[1]:=i; if (s[i]=' ') and (a[1]>0) then begin a[2]:=i; break end end; for i:=length(s) downto 1 do begin if s[i]=')' then a[4]:=i; if (s[i]=' ') and (a[4]>0) then begin a[3]:=i; break end end; s:=copy(s,1,a[1])+copy(s,a[3]+1,a[4]-a[3]-1)+copy(s,a[2],a[3]-a[2]+1)+copy(s,a[1]+1,a[2]-a[1]-1)+copy(s,a[4],length(s)-a[4]+1); write(s); end.
n=50;m=50;
var
a:array[1..n,1..m]of integer;
i,j,k,x,h:integer;
begin
readln(x);
for i:=1 to n do
begin h:=0;
writeln;
for j:=1 to m do
begin
a[i,j]:=random(100);
write(a[i,j]:4);
if a[i,j]<=x then
h:=h+1
end;
if h=m then k:=k+1;
end;
writeln;
writeln(k);
end.