Замена всех элементов целочисленного массива на числа с обратным порядком цифр

@Annetkaz · Регистрация: 15.10.2012

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

Здравствуйте! помогите пожалуйста с задачкой : Составить и опробовать процедуру (или несколько), которая: заменяет все элементы целочисленного массива на числа с обратным порядком цифр.

заранее спасибо!

Новичок · 25.01.2014, 12:35

Pascal

type mas=array[1..100]of Integer;
 
procedure init(var a:mas;const n:Integer);
var i:Integer;
begin
for i:=1 to n do 
a[i]:=Random(10000);
end;
 
procedure output(var a:mas;const n:Integer);
var i:Integer;
begin
for i:=1 to n do Write(a[i],' ');
Writeln;
end;
 
procedure edit(var a:mas;const n:Integer);//Сама процедура
var i,p,k:Integer;
begin
for i:=1 to n do
 begin
 p:=0;
 k:=a[i];
  while k>0 do
  begin
  p:=p*10+k mod 10;
  k:=k div 10;
  end;
 a[i]:=p;
 end;
end;
 
var m:mas;n:Integer;
begin
Write('Размер массива:');
Read(n);
init(m,n);
Writeln('Исходный массив:');
output(m,n);
edit(m,n);
Writeln('Полученный массив:');
output(m,n);
end.

@Annetkaz 0 / 0 / 1 Регистрация: 15.10.2012 Сообщений: 83
		1
	Замена всех элементов целочисленного массива на числа с обратным порядком цифр 23.01.2014, 22:13. Показов 1201. Ответов 1 Метки нет (Все метки) Здравствуйте! помогите пожалуйста с задачкой : Составить и опробовать процедуру (или несколько), которая: заменяет все элементы целочисленного массива на числа с обратным порядком цифр. заранее спасибо! 0

	25.01.2014, 12:35

Замена всех элементов целочисленного массива на числа с обратным порядком цифр

Решение