задачки в паскале

[4otenado]

Пож-та помогите решить две задачки в паскале(надо курсовую сдать до 10.06)
1. Вводится 16 чисел. Найти максимальный элемент среди трёхзначных чисел и среднее арифметическое четных.
2. Вводится текст. Конец ввода F6. Найти количество заглавных букв.
Заранее спасибо.

и ещё, если можно, то ещё блок-схемы составьте пож-та

знаю что задачи элементарные(уровня школы), но подскажите хотябы как найти кол-во заглавных букв. а то я никак не могу её сделать, а в 1й вообще не знаю как

program live;
uses CRT;
var i: integer; ch: char;
begin
i:= 0;
repeat
ch;= readkey;
write(ch);
while ch <>#0 do begin
if (ch='g')= true then
i:=i+1;
ch:=readkey;
write(ch);
end;
ch:=readkey;
write(ch);
until ch=#64;
writeln ('kolichestvog=',i);
end.

помогите пож-та, что мне надо написать здесь, чтобы найти количество заглавных букв.

[Stilet]

помогите пож-та, что мне надо написать здесь, чтобы найти количество заглавных букв.

...
if (ch in ['A'..'Z']) then
...

[Chudo4258]

Проверяешь, является ли число 3-х значным:

program Project2;

function tr(x:integer):boolean;
var k:integer;
begin
k:=0;
while X<>0 do
 begin
  x:=x div 10;
  inc(k);
 end;
if k=3 then tr:=true
       else tr:=false;
end;

var x,i:integer;
begin
  readln(x);
  writeln(tr(x));
  readln
end.

Ну, а дальше уже дело техники...

[Anatole]

k:=0;
while X<>0 do
 begin
  x:=x div 10;
  inc(k);
 end;
if k=3 then tr:=true
       else tr:=false;

Трёхзначное число это числа из дипазона 100...999. Поэтому проще

if x>=100 and x<=999 then tr := true else ек := false;

[4otenado]

2. Вводится текст. Конец ввода F6. Найти количество заглавных букв.
Заранее спасибо.-- вот эта у меня получилась

1. Вводится 16 чисел. Найти максимальный элемент среди трёхзначных чисел и среднее арифметическое четных. а вот эта что то никак не получается, программа которую написали-работает, но как найти максимальный элемент среди трёхзначных чисел и среднее арифметическое четных?

[4otenado]

Вот посмотрите пож-та что тут не правильно:
Вводится 16 чисел. Найти максимальный элемент среди трёхзначных чисел и среднее арифметическое четных.


program zada4a;
uses crt;
var a,i,max,sum,sr,k:integer;
begin
clrscr;
i:=1;
max:=0;
sr:=0;
sum:=0;
k:=0;
while i<=16 do
begin
write ('vvedite 4islo');
readln (a);
if ((a>99) and (a<1000) and (a>max)) then max:=a;
if (a>9) and (a<100) and ((a mod 2=0)) then sum:=sum+a;
if (a>9) and (a<100) and ((a mod 2=0)) then k:=k+1;
i:=i+1;
end;
if k<>0 then sr:=sum/k else write (' dvuzna4nih 4isel net')
sr:=sum/k;
writeln (sr);
writeln (max);
readln;
end.

[4otenado]

скажите куда здесь надо написать K: real;