Все Цифры Каждого Элемента Массива Увеличить На 1, А 9 Заменить На 0

viktorija

New Member
23.02.2014
3
0
22
#1
Здравствуйте! помогите записать программку с помощью процедур и функций или, если можно, совместить две программки.
var
s: string;
i: integer;

begin
Readln(s);
i := 1;
while (i < length(s)) do
begin
if(s in ['0'..'9']) then
if odd(i) then
begin
if s = '9' then
s := '0'
else
Inc(s);
end;
inc(i);
end;

Writeln(s);
end.


Program Example;
uses crt;
Const n = 30;
dd = 51;
Type myarray = Array [1..n] Of Integer;
Procedure Init2(var n1:integer;Var m : myarray );
var i : Integer;
begin
repeat
write('Размер массива от 1 до ',n,'=');
readln(n1);
until n1 in [1..n];
for i:=1 to n1 do
m:=random(dd);
end;
Procedure Print1(n1: Integer; m: myarray );
Var i : Integer;
Begin
For i:=1 To n1 Do
Write(m:4);
Writeln;
End;

var A : myarray;
n1 : Integer;
Begin
clrscr;
Randomize;
Init2(n1,A);
Print1(n1,A);
Print1 (n1,A);
Readln;
End.