20.05.2010, 20:28
|
|
Он хакер.
Регистрация: 01.11.2008
Сообщений: 1,756
Провел на форуме:
6462214
Репутация:
3171
|
|
Сообщение от Konqi
program shit;
var x:array[1..100] of string; i,n,MAX: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.
|
|
|