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

[FUTsin283]

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

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

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

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

[m0Hze]

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

[Konqi]

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

[Konqi]

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

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

[m0Hze]

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.

[Konqi]

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

:-P

[m0Hze]

:-P
Ниабизательно!1 Я на паскале с того года ничего не писал =( практика на цпп у нас =(

[Konqi]

Ниабизательно!1 Я на паскале с того года ничего не писал =( практика на цпп у нас =(

у меня сейчас дипломная работа на паскале,я в форме :D

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

[FUTsin283]

у меня сейчас дипломная работа на паскале,я в форме :D

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

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

[m0Hze]

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

[Konqi]

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

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:

[Konqi]

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

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.

[FUTsin283]

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

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.

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