Помогите написать простенькие задачки на pascal
 

в массиве из 20 элементов определить большее, меньшее и среднее арифметическое.

посчитать количество русских букв в текстовом файле.

запрос числа--если число четное то вывести "четное" если не четное то вывести 1/2 этого числа.

пожалуйста помогите горит экзамен. :(

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

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

ну дык помоги плиз :D

Да кому это нужно, тем более в болталке. У всех сессии свои, сейчас тебе побегут паскаль кромсать. Я просто из-за лени не буду писать ^_^
И вообще, я пошел кушать!