две задачи на тип INTEGER и тип CHAR

[inspiron13]

две задачи на тип INTEGER и тип CHAR
1.Вводится 15 чисел. Найти сумму чисел, введённых с пятого по десятое.
2.Вводится текст. Конец ввода "?". Найти количество букв "К"

заранее спасибо)

[Valio]

Ну это вообще жёсткий примитив. Где попытки?

[inspiron13]

var
s:string;
i,k:Integer;
begin
k:=0;
Readln(s);
s:=Copy(s,1,Pos('?',s)-1);
if i:=1 and Length(s) then
if s[i]='К' then
k:=k+1;
Writeln(k);
Readln
end.


var
i,s,sum:Integer;
begin
sum:=0;
for i:=1 to 15 do
begin
Readln(s);
if i>=5 and i<=10 then
sum:=sum+s;
Writeln(sum);
end.

[Valio]

Это ты скопировал с соседнего раздела

[k0tone]

Сообщение от inspiron13

Вводится 15 чисел. Найти сумму чисел, введённых с пятого по десятое.

program test;
uses crt;
var a:array [1..15] of integer;
    i,sum:integer;

begin
  clrscr;
  for i:=1 to 15 do
    begin
      write('a[',i,']=');
      readln(a[i]);
    end;
  for i:=5 to 10 do sum:=sum+a[i];
  write('sum=',sum);
  readln;
end.

[inspiron13]

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