ІІІ-кезең Қате жазылған программа Program Kat16;
Const T:Array[1..5] Of String=(‘Tobol’,’Kaisar’,’Irtysh’,’Taraz’,’Kairat’);
Var K,I:Byte;S:Char;
Begin For K:=1 To 5 Do Write(T[K]:7);Writeln;
For K:=1 To 5 Do
For I:=1 To Trunc(Length(T[K]/2) Do
Begin S:=T[K][I];T[K][Length(T[K])-I+1];
T[K][Length(T[K])-I+1]:=S End;
Writeln(‘gana massiv futbol komandalarinin keri attarinan turadi:’);
For K:=1 To 5 Do Write(T[K]:7)
Readln End
Қатесіз дұрыс жазылған программа Program kat16;
Const T:Array[1..5] Of String=(‘Tobol’,’Kaisar’,’Irtysh’,’Taraz’,’Kairat’);
Var K,I:Byte;S:Char;
Begin For K:=1To 5 Do Write (T[K]:7);Writeln;
For K:=1 To 5 Do
For I:=1 To Trunc(Length(T[K])/2) Do
Begin S:=T[K][I];T[K][I]:=T[K][Length(T[K])-I+1];
T[K][Length(T[K])-I+1]:=S End;
Writeln (‘gana massiv futbol komandalarinin keri attarinan turadi:’);
For K:=1 To 5 Do Write (T[K]:7);
Readln End.
