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

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

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

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

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

 

хм, неа, я не знаю как это сделать =(

Code:

[/SIZE]
[SIZE=1]1) в цикле прогоняем массив, и if arr[i] > MAX then MAX:=arr[i];
3) DIV или MOD, точно не помню уже. Конструкция поулчается вроде такой: c:= a div 2; if c = 0 then writeln('4etkoe'); else...[/SIZE]

 

а я знаю, но мне лень =(

 

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

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

 

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

 

Ниабизательно!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);
for i:=1 to n do if (x mod 2=0) then write('Чётный') else if (x mod 2 =1) then write('нечётный');
end.

 

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