Задачки по паскалю

[Юлла]

Ребята, помогите пожалуйста написать прогу!) не понимаю тему массивы и матрицы.
1.
Задана запись одного оператора. Проверить наличие симво¬ла точка с запятой. Вывести соответствующие сообщения.
2.
Даны массивы
N1, ... , N20 - наименование стран;
A1, ... , A20- численность населения
B1 ,...,B20- кол-во автомоб. в стране
напечатать 3 списка:
страны в которых 1<Ai/Bi<или =1.5
страны в которых 0.5<Ai/Bi<или =1
страны в которых 0.1<Ai/Bi<или =0.5

[whatever]

Первая:

write('(',m[1,1]);
sum:=0;
for i:=2 to 10 do
  begin
    write(',',m[i,i]);
    sum:=sum+m[i,i];
  end;
writeln(')');
writeln('сумма = ',sum);
for i:=1 to 10 do
  for j:=1 to 10 do
    m[i,j]:=m[i,j]/sum;

Вторая: не, мне лень

[Юлла]

Спаасибо большое и на этом)

[gaw4]

 const n = 10;

 Var  matrix: array [1..n,1 .. n] of real;
      vector: array [1..n] of real;
     S : real;
     i,j:integer;

begin
  for i := 1 to n do
   begin
     for j := 1 to n do
        begin
           matrix[i,j] := Random(10)+10;
            if i=j then vector[i]:=matrix[i,j];
           write( matrix[i,j],' ')
     end;
         writeln;
  end;
writeln; write( 'vector -->  ');
  for i := 1 to n do
   begin
      S:=S+ vector[i];
       write( vector[i],' ');
    end;
writeln(' -->   S=',S) ;writeln;
if S<>0 then
  for i := 1 to n do
   begin
     for j := 1 to n do
        begin
           matrix[i,j] :=  int(100*matrix[i,j]/S)/100;
           write( matrix[i,j]:4:2,' ');
        end;
     writeln;
  end
else
   write( 'S=0 ! ');
   
readln;
end.

[Mad_Cat]

Задана запись одного оператора. Проверить наличие символа точка с запятой. Вывести соответствующие сообщения

var s:string;begin readln(s); writeln(pos(';',s)<>0);end.