Помогите написать простенькие задачки на 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

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

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

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.

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

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

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

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.

спасибо большое. :)