Тема: Помогите написать простенькие задачки на pascal
Показать сообщение отдельно

  #6  
Старый 20.05.2010, 20:30
Konqi
Постоянный
Регистрация: 24.06.2009
Сообщений: 542
С нами: 8885780

Репутация: 672


По умолчанию
Цитата:
Сообщение от m0Hze  
for i:=1 to 20 do if (x[i] > MAX) then MAX:=x[i];
writeln('MAX= ',MAX);
end.
:-P
 
Ответить с цитированием