program exam21;

{$APPTYPE CONSOLE}

uses
SysUtils;

type st=string[80];
mas=array[1..10] of st;
var
s1,s2:mas;
n,i,j,u,m:integer;
d:st;
f1:textfile;
f2:file of st;
PROCEDURE Vvod(Var a:mas;var n:integer);
var i:integer;
begin
writeln('Vvedite razmernost');
readln(n);
writeln('Vvedite elementi:');
for i:=1 to n do readln(a[i]);
end;
PROCEDURE Sort(a:mas;n:integer);
begin
for i:=1 to n do
begin
d:=a[i];
for u:=1 to length(d) DO
if d[u]='a' then
d[u]:='b';
a[i]:=d;
end;
for i:=1 to n do begin
writeln(a[i]);
writeln; end;
end;
begin
Vvod(s1,n);
writeln('Vveli:');
for i:=1 to n do begin writeln(s1[i]:4);
writeln;
end;
Vvod(s2,m);
writeln('Vveli:');
for i:=1 to m do begin writeln(s2[i]:4);
writeln;
end;
writeln;
writeln('*********************');
writeln('Izmenenniy massiv S1:');
Sort(s1,n);
writeln;
writeln('Izmenenniy massiv S2:');
Sort(s2,m);
writeln;
readln;
{ TODO -oUser -cConsole Main : Insert code here }
end.

Случайные файлы

Файл
55.txt
148.txt
sanpin_5179-90.TXT
10 A.txt
288386.txt




Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.