program raf105;
const
n = 9;
var
a,b1,b2:array[1..n] of integer;
k,i,j,c1,c2:integer;
begin
write('Введите число k: ');
readln(k);
writeln('Заполните массив:');
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
begin
if a[i] > k
then begin
c1:= c1 + 1;
b1[c1]:= a[i];
end;
if a[i] < k
then begin
c2:= c2 + 1;
b2[c2]:= a[i];
end;
end;
for i:=1 to c1 do
a[i]:=b1[i];
for i:=c1+1 to c2+c1 do
a[i]:=b2[i-c1];
write('Вывод: ');
for i:=1 to n do
write(a[i],' ');
end.
PascalABC 3.4.2
Program Ves;
Uses Crt;
var h,c,i,p:real;
begin
clrscr;
write('Введите ваш вес в килограммах:');
readln(p);
write('Введите ваш рост в сантиметрах:');
readln(h);
i:=h-105;
c:=i-p
writeln('Ваш рост в сантиметрах=',h);
if (c=0) then writeln('Ваш вес идеален');
if (c>0) then writeln('Для достижения идеального веса надо сбросить ' , с , ' килограмм')
else writeln('Для достижения идеального веса надо набрать ' ,с , ' килограмм');
readkey;
end.