Дан массив целых чисел. Составить новый массив, элементами которого являются числа-перевертыши исходного массива

@kabalvlad · Регистрация: 05.04.2012

Студворк — интернет-сервис помощи студентам

Дан массив целых чисел. Составить новый массив, элементами которого являются числа-перевертыши исходного массива (типо 345 -543 или 1000 -0001 вод чисел случайно через рандом ) . Полученные числа - перевертыша оформить в виде функции пользователя ! Помогите решить задачу а то тне получается

Код Pascal

Pascal

program p1;
uses crt;
var
s:array[1..1000] of integer;
b:array[1..1000] of integer;
i,k:integer;
function prosto (x:integer): integer;
var x1, y, a : integer;
begin
x1:=x;
while x<>0 do
begin
a:=x mod 10;
y:=y*10+a;
x:=x div 10;
prosto:=y;
end;
y:=0;
end;
begin
readln(k);
for i:=1 to k do
readln(s[i]);
for i:=1 to k do
b[i]:= prosto (s[i]);
for i:=1 to k do
write(b[i],'');
end.

@CodeR · 16.12.2012, 09:14

Pascal

program p1;
uses crt;
var
s:array[1..1000] of integer;
b:array[1..1000] of integer;
i,k:integer;
function prosto (x:integer): integer;
var x1, y, a : integer;
begin
x1:=x;y:=0;
while x<>0 do
begin
a:=x mod 10;
y:=y*10+a;
x:=x div 10;
prosto:=y;
end;
y:=0;
end;
begin
readln(k);
for i:=1 to k do
readln(s[i]);
for i:=1 to k do
b[i]:= prosto (s[i]);
for i:=1 to k do
write(b[i],' ');
readln;
end.

Добавлено через 45 секунд
Переменные которые используешь в подпрограмме для каких то вычислений надо обнулять!

@kabalvlad · 16.12.2012, 13:08 **[ТС]**

СПС с меня шоколодка

@kabalvlad 0 / 0 / 0 Регистрация: 05.04.2012 Сообщений: 4
	16.12.2012, 13:08 [ТС]	3
	СПС с меня шоколодка 0

Опции темы