ЗАДА4а на паскаль

[KOSS.AB]

Помогите решить зада4и на паскале, пожалуста!
Все, кроме 3-ей зада4и.


Photo-0136.jpg

Photo-0137.jpg

[Google2010]

553-566-179! стучите! недорого!

[Chudo4258]

а где ваше "Зарание спасибо", так обычно все делают, кто даже подумать не хочет сам.
Тогда стучитесь в аску написанную выше, там спасибо не надо говорить, там ..... р.

[KOSS.AB]

Магу хоть 100 рас СПАСИБО написать, если решишь зада4ки.

[RUSt88]

без проблем, выполню в кратчайшие сроки

[overtake]

тут задачи не решают а помогают исправить или доработать код! так что тебе во фриланс, а так обращайся 153-958 сделаю не дорого

[KOSS.AB]

да мне можно и доработать, они впринципе у меня есть, но они не работают. Кто сможет доделать, помогите пожалуйста! И СПАСИБО!

[KOSS.AB]

Вот например у меня есть текст зада4и №4:


uses Crt;
var arr: array[0..1000] of integer;

MODUL,K,i,n,MIN: integer;

begin
ClrScr;
write('Введите рамер массива N=');
readln(n);
for i:=1 to n do
begin
arr[i]:=random(50)+1;
write(' ', arr[i]);
end;
writeln;
write('VVEDITE K='); read(K);


MIN:=32677;

for i:=1 to arr[i] do begin

MODUL:=abs(arr[i]-K);

if (MODUL<MIN) then MIN:=arr[i];

end;

writeln('4исло=' , MIN, ' NOMER=', i);
end.






текст зада4и №5:



uses Crt;
Var S:string;
X1,X2,X3,X4,X5,X6,X7,X8,X9:integer;
i,n:integer;


begin
writeln('BBEDITE STROKY');
readln(S);

for i:=0 to length(S) do begin
X1:=Pos('1',S);

delete(S,X1,1);
Insert('ODIN',S,X1);
end;


writeln(S);
end.
помогите кто сможет! ПЛЗ.

[KOSS.AB]

еще есть текст зада4и №7:

uses Crt;
type table=record
name:string;
MARKA:string[15];
STRANA:string[15];

CEHA:real;
end;
var i,j,n:integer;
a:table;
mas:array[1..30] of table;
S_CEHA,CEHA,k,r:real;
begin
write('n=');read(n);
for i:=1 to n do
with mas[i] do begin
writeln('i=', i);
writeln('MARKA'); read(MARKA);
writeln('STRANA');read(STRANA);
writeln('CEHA');read(CEHA);
k:=100;
r:=110;

end;
S_CEHA:=0;
for i:=1 to n do
begin
S_CEHA:=CEHA/k*r;
end;



write(' ':4,'MARKA', ' ':8);
write(' ':4, 'STRANA', ' ':10);
write(' ':4, 'CEHA', ' ':8);
writeln;
for i:=1 to n do
with mas[i] do begin
write(' ':5, MARKA:8);
write(' ':8, STRANA:10);
write(' ':8, CEHA:8);
writeln;
end;

end.


в каждой зада4е есть ошибки, а я не магу понять какие!!!

[[CODER]]

4

for i:=1 to n do 
 begin
    MODUL:=abs(arr[i]-K);
    if (MODUL<MIN) then 
      begin
         MIN:=arr[i];
         NOMER:=i;
     end;
 end;
writeln('4исло=' , MIN, 'NOMER=', NOMER);
end.