Помогите пожалуйста

Помогите кому не трудно или кто может помочь бесплатно.
Надо решить задачки по TP чтоб быть допущенным до сессий.
У меня по болезни было я не присутствовал на парах.

1.В матрице A(7,8) найти сумму нечётных положительных элементов.Элементы матрицы определяются в интервале от(-10;10)
2.Дан вектор A(100) состоящий из нуля и единиц.Определить сколько в нём чисел каждого вида?.
3.Дана строка символов S.Определить сколько в ней различных букв и сколько букв каждого вида?

 

3

Code:

program Project1;

uses
  Crt;
var InputString:string;
    Glas,Soglas:set of char;
    GlasCount,SoglasCount,I:Integer;
begin
  Glas:=['a','e','i','o','u','y'];
  Soglas:=['b','c','d','f','g','h','j','k','l','m','n','p','q','r','s','t','v','w','x','z'];
  repeat
    Write('Vvedite ishodnuyu stroku: ');
    Readln(InputString);
  until InputString<>'';
  GlasCount:=0;
  SoglasCount:=0;
  for i:=1 to Length(InputString) do
    if InputString[i] in Glas then
      GlasCount:=GlasCount+1
    else
    if InputString[i] in Soglas then
      SoglasCount:=SoglasCount+1;
  Write('V stroke: '+InputString);
  Write(' Glasnih bykv: '+GlasCount);
  Writeln(' Soglasnih bykv: '+SoglasCount);
  Readln;
end.

2

Code:

program Project1;


uses
  Crt;
const N=100;
var Vector:array [1..N] of Byte;
    i:Byte;
    ZeroCount:Byte;
begin
  Randomize;
  Write('Ishodniy vector: ');
  for i:=1 to N do
  begin
    Vector[i]:=Random(2);
    Write(Vector[i]+' ');
  end;
  Writeln;
  ZeroCount:=0;
  for i:=1 to N do
    if Vector[i]=0 then
      ZeroCount:=ZeroCount+1;
  Write('V vectore '+ZeroCount+' nulevih elementov');
  Writeln(' i '+(N-ZeroCount)+' ne nulevih');
  Readln;
end.

1

Code:

program Project2;


uses
  Crt;
const N=7;
      M=8;
var Matrix:array [1..M,1..N] of ShortInt;
    i,j,Summ:Integer;
begin
  Randomize;
  Writeln('Ishodnaya MATRICA');
  for i:=1 to M do
  begin
    for j:=1 to N do
    begin
      Matrix[i,j]:=Random(21)-10;
      Write(Matrix[i,j]:5);
    end;
    Writeln;
  end;
  Summ:=0;
  for i:=1 to M do
  begin
    for j:=1 to N do
    begin
      if (Matrix[i,j]>0)and((Matrix[i,j] mod 2)>0) then
        Summ:=Summ+Matrix[i,j];
    end;
  end;
  Writeln('Summa nechetnih polozhitelnih elementov massiva ravna: '+Summ);
  ReadLn;
end.

Там движок форума пробелы к буквам подобавлял, прога не скомпилится, поудаляете лишние пробелы

 

Спасибо большое.Очень помог.

 

добавил решение 1-й задачи. пожалуйста