задачи по Паскалю до понедельника

[ЯН_КА]

Здравствуйте! помогите,пожалуйста, с решением задач по Паскалю! очень нужно! вот 1 задача: 15) Дано натуральное число n. Выяснить сколько положительных элементов содержит матрица [aij] i,j=1:n, если aij=cos(i2(в квадрате)+j/n). и 2 задача: Дана строка символов. Подсчитать сколько раз среди символов строки встречается буква x.
БУДУ ОЧЕНЬ ПРИЗНАТЕЛЬНА!!!!!

[DM_bite]

2.

program Stroka;
var s:string;
    k,i:byte;
    begin
    k:=0;
    ReadLn(s);
    for i:= 0 to Length(s) do
     begin
     if s[i]='x' then inc(k);
     end;
     WriteLn(k);
     ReadLn;
     end.

[ЯН_КА]

СПАСИБО ВАМ ОГРОМНОЕ!!!

[DM_bite]

Объясни вот эту строчку, пожалуйста:

[aij] i,j=1:n,

[ЯН_КА]

там стоит как бы двоеточие и между точками дефис

[DM_bite]

1.

program xd;
const n=10;
var a:array [0..n,0..n] of integer;
    i,j,m,k: integer;
    begin
    readLn(m);
    k:=0;
    for i:= 0 to n do
     for j:= 0 to n do
     begin
     a[i][j]:=round(cos(sqr(i)+j/m));
     end;
     for i:= 0 to n do
      for j:= 0 to n do
      begin
       if a[i][j]<0 then inc(k);
      end;
      WriteLn(k);
      ReadLn;
      end.

[ЯН_КА]

блин,большое тебе спасибо!!!выручил!!!!!!!!я ничего не понимаю в этом,а решать заставляют!

[VadEr]

Во второй задаче, лучше цикл начинать с еденицы: For i:=1 to Length(s)

[ЯН_КА]

хорошо.спасибо!я исправила.а ты не подскажешь,где можно найти литературу по Паскалю?у меня тема курсовика цифровые часы на Паскале.тебе такое не попадалось?

[DM_bite]

Во второй задаче, лучше цикл начинать с еденицы: For i:=1 to Length(s)

Существенной потери памяти в этом случае не будет, а так верно.

хорошо.спасибо!я исправила.а ты не подскажешь,где можно найти литературу по Паскалю?у меня тема курсовика цифровые часы на Паскале.тебе такое не попадалось?

Для начала, конечно, здесь.А там и на поисковики можно перейти.