program shit;
var x:array[1..100] of string; i,n:integer;
begin
for i:=1 to n do read(x[i]);

а дальше лен =(

for i:=1 to 20 do if x[i] > MAX then MAX:=x[i];
writeln('MAX= ',MAX);
end.

:-P

Ниабизательно!1 Я на паскале с того года ничего не писал =( практика на цпп у нас =(

у меня сейчас дипломная работа на паскале,я в форме

d:=detect;
initgraph(d,m,' ');
if graphresult<>0 then halt;

количество русских букв:

s,s1:string;count:integer;
begin
count:=0;
readln(s); s:=s1;
while pos('русская буква',s1)>0 do begin
count:=count+1;
k:=pos('русская буква',s1);
delete(s1,k);
end;
write(count)
end.

я не понял одно, как проверить все буквы вместе

если сделать так как я написал,то будет перебор

Чётные и нечётные

var x:array[1..20] of integer;
i,n:integer;
begin read(n);
for i:=1 to n do read(x[i]);
for i:=1 to n do if (x[i] mod 2=0) then write('Чётный') else if (x[i] mod 2 =1) then write('нечётный');
end.