humbsup:
a : array [1..100] of char; . . .
var i : integer;
c:char;
begin
c:=a[i];
. . .или
Type <имя_типа> = array[1..100] of byte;
Var <var_name>:<имя_типа>
a : array [1..100,1..100,1..100] of char;var i : integer;
j : integer;
k : integer
c:char;
begin
c:=a[i,j,k];Program Sort;
uses Crt;
const
n=20;
m=20;
var i,j,max:integer;
a:array[1..n,1..m] of integer;
Begin;
ClrScr;
Randomize;
For i:=1 to n do Begin
For j:=1 to m do Begin
a[i,j]:=random(99)-50; (*запоняем массив случайными числами от -49 до 50 *)
End;
End;
max:=a[1,1];(*это чтобы дать начальное значение*)
For i:=1 to n do Begin
For j:=1 to m do Begin
Write(a[i,j]:3);
If a[i,j]>max then max:=a[i,j]; (*Выводим массив на экран и ишем максимальный элемент*)
End;
writeln;
End;
Writeln;
Writeln(max);
(*Выводим максимальный элемент*)
Readln;
End.
program uniq;
var f,g:text;
i,n,s,j:byte;
a,b,c:array[1..10] of byte;
d:array[1..1] of byte;
begin
assign(f,'f.txt');
rewrite(f);
randomize;
for i:=1 to 10 do begin
a[i]:=random(5);
write(f,a[i],' ');
end;
close(f);
reset(f);
i:=1;
while (EOln(f) <> TRUE) do begin
read(f,b[i]);
i:=i+1;
end;
close(f);
assign(g,'g.txt');
rewrite(g);
c[1]:=b[1];
n:=1;
for i:=1 to 10 do begin
s:=0;
for j:=1 to n do begin
if(c[j] = b[i]) then inc(s);
end;
if (s=0) then begin
inc(n);
c[n]:=b[i];
end;
end;
for i:=1 to n do write(g,c[i],' ');
close(g);
end.
end.