масивушка

[[Te[M]ka]]

помогите сделать. долги весят по программированию (

[Shift_sk]

var a,b,c:array[1..29] of integer;

k,i,n:integer;
begin
for i:=1 to 28 do
read(a[i]);
for i:=1 to 28 do
read(b[i]);
k:=29;
c[29]:=0;
for i:=1 to 28 do
 begin
 c[k-i]:=trunc((a[k-i])/(b[k-i]-c[29-i+1]));
 k:=k-1;
 end;
 for i:=1 to 29 do
 write(c[i],' ');
 end.
думаю решение такое...но тестов нет может быть и неправильное!

[[Te[M]ka]]

спасиба. кое что потом переделаю сам.
у тебя чуток не верно получается. видно, что ты самоучка.
нас на программировании немного не так учат писать. потом переделаю немного выложу. уже как защищу задачу.

[Shift_sk]

почему сразу самоучка???просто разные учителя разные методики, разные примеры)

[[Te[M]ka]]

ну я когда защищу задачу и преподаватель немного отредактирует её я тебе покажу как нас в университете учат.

[Shift_sk]

просто я не в универе учусь а в школе еще)

[Mad_Cat]

2Shift_sk

k:=k-1;

вот это не нужно

var a,b,c:array[1..29] of integer;

должно быть

var a,b,c:array[1..29] of real;

так как даны действительные числа
==> trunc -тоже не нужен

[Shift_sk]

Сообщение от Mad_Cat

2Shift_sk

k:=k-1;

вот это не нужно

var a,b,c:array[1..29] of integer;

должно быть

var a,b,c:array[1..29] of real;

так как даны действительные числа
==> trunc -тоже не нужен

соглашусь) k лишнее и трунк тоже можно не использовать!