Const n=6; var x:array[1..n] of integer=(-1, 1, 2, -2, -3, 3); y,z:array[1..n] of integer; i,i1,i2:integer; begin for i:=1 to n do write(x[i]:3); writeln; i1:=0; i2:=0; for i:=1 to n do if x[i]>0 then begin i1:=i1+1; y[i1]:=x[i]; end else if x[i]<0 then begin i2:=i2+1; z[i2]:=x[i]; end; writeln(' Y: Z:'); for i:=1 to n do if (i1>=i)and(i2>=i) then writeln(y[i]:3,z[i]:4) else if i1>=i then writeln(y[i]:3) else if i2>=i then writeln(z[i]:7); end.
Var i,j,s,k:integer; begin s:=0; k:=0; for i:=1 to 9 do for j:=0 to 9 do begin s:=s+i*100+j*10+i; k:=k+1; end; writeln('s = ',s,' k = ',k,' sred = ',s/k:6:2); end.
Результат: s = 49500 k = 90 sred = 550.00
Если нужно приложение с формой, то: помещаете на форме командную кнопку (Button) и статичный текст (StaticText). В обработчик кнопки добавляете код: procedure TForm1.Button1Click(Sender: TObject); var i,j,s,k:integer; s:string; begin s:=0; k:=0; for i:=1 to 9 do for j:=0 to 9 do begin s:=s+i*100+j*10+i; k:=k+1; end; s:='s = '+IntToStr(s)+' k = '+IntToStr(k)+' sred = '+FloatToStr(s/k); StaticText1.Caption := s; end;
var x:array[1..n] of integer=(-1, 1, 2, -2, -3, 3);
y,z:array[1..n] of integer;
i,i1,i2:integer;
begin
for i:=1 to n do write(x[i]:3);
writeln;
i1:=0; i2:=0;
for i:=1 to n do
if x[i]>0 then begin i1:=i1+1; y[i1]:=x[i]; end
else if x[i]<0 then begin i2:=i2+1; z[i2]:=x[i]; end;
writeln(' Y: Z:');
for i:=1 to n do
if (i1>=i)and(i2>=i)
then writeln(y[i]:3,z[i]:4)
else if i1>=i then writeln(y[i]:3)
else if i2>=i then writeln(z[i]:7);
end.
Результат:
-1 1 2 -2 -3 3
Y: Z:
1 -1
2 -2
3 -3
begin
s:=0; k:=0;
for i:=1 to 9 do
for j:=0 to 9 do
begin
s:=s+i*100+j*10+i;
k:=k+1;
end;
writeln('s = ',s,' k = ',k,' sred = ',s/k:6:2);
end.
Результат:
s = 49500 k = 90 sred = 550.00
Если нужно приложение с формой, то:
помещаете на форме командную кнопку (Button) и статичный текст (StaticText).
В обработчик кнопки добавляете код:
procedure TForm1.Button1Click(Sender: TObject);
var i,j,s,k:integer; s:string;
begin
s:=0; k:=0;
for i:=1 to 9 do
for j:=0 to 9 do
begin
s:=s+i*100+j*10+i;
k:=k+1;
end;
s:='s = '+IntToStr(s)+' k = '+IntToStr(k)+' sred = '+FloatToStr(s/k);
StaticText1.Caption := s;
end;