Версия для печати темы
Нажмите сюда для просмотра этой темы в обычном формате
Форум «Всё о Паскале» _ Задачи _ Задача на поле
Автор: Евген 6.04.2004 23:53
Никак не могу решить задачку на поле.
Задача:
Задать 10 целых чисел.После ввода программа выполнит следующие действие, например:
2 10 3 ... 5 7 {ввод произвольных чисел}
-8 7 .... -2 0 {из левого числа вычитается правое, если правого соседа нет, пишется ноль}
Я написал, как сумел, но что-то не работает.Может быть кто-нибудь укажет мне ошибки.
Код
program pole4;
const=10;
var pole:array [1..pp] of integer;
i:integer;
begin
for i:= 1 to pp do
begin
pole[i]:=pole[i] - pole[i+1];
end;
pole[pp]:= 0;
var x:longint;
begin
for i:= 1 to pp do
write('Zadej cisla: '); read(x);
pole[i]:= x;
write(pole[i]);
end.
Автор: AlaRic 7.04.2004 0:11
Код
program pole4;
const pp=10;
var pole:array [1..pp] of integer;
i:integer;
begin
for i:=1 to pp do read(pole[i]);
for i:= 1 to pp-1 do
begin
pole[i]:=pole[i] - pole[i+1];
end;
pole[pp]:= 0;
for i:= 1 to pp do write(' ',pole[i]);
end.
const pp=10;
var pole:array [1..pp] of integer;
i:integer;
begin
for i:=1 to pp do read(pole[i]);
for i:= 1 to pp-1 do
begin
pole[i]:=pole[i] - pole[i+1];
end;
pole[pp]:= 0;
for i:= 1 to pp do write(' ',pole[i]);
end.
Автор: Евген 7.04.2004 0:21
Большое спасибо Аларик.Очень выручил. 