TurboPascal 7. Прощу помощи в решение задач по практике по Алгоритмизации

[Slonoboy]

Привет уважаемый Народ форума!!!
Прошу всех кто шарит в TurboPascal помочь мне в написание программ по учебной практике, так как я ничего в этом не шарю((( А учиться как то нужно....
Задача 1:
Найти количество четных элементов одномерного массива до первого встречного числа равного наперед заданному числу а.

Задача 2:
Вычислить сумму элементов тех столбцов двумерного массива (3х4)
первый элемент которых превосходит наперед заданное число а.

Задача 3:
Дана строка символов, содержащих слова, определить количество слов, начинающихся с буквы а.

Задача 4:
Вычислить среднее арифметическое значение тех элементов одномерного массива, которые попадают в заданный промежуток.

Задача 5:
Найти обратное произведение наибольших элементов тех строк двумерного массива (3х4), первый элемент которых отрицателен.

Задача 6:
Дана строка символов, содержащих слова, определить количество слов, имеющих четную длину.

Задача 7:
Вычислить сумму четных элементов одномерного массива до первого встречного нулевого элемента.

Задача 8:
Найти сумму элементов того столбца двумерного массива, в котором расположится наибольший элемент (считаем, что он единственный).

Задача 9:
Дана строка символов, содержащих слова, определить количество слов, начинающихся с буквы а.

Задача 10:
Подсчитать количество элементов одномерного массива, который превосходит среднее арифметическое всех элементов массива.

Задача 11:
Дан одномерный массив А(10) и двумерный В(3х4). В двумерном массиве заменить нулями те элементы, которые имеют нечетную сумму индексов и превосходят среднее арифметическое значении элементов массива А.

Задача 12:
Дана строка символов, содержащих слова, определить количество слов, имеющих четную длину.


Задача 13:
Найти номер последнего четного и отрицательного элемента одномерного массива, если это номер элемента, находящийся в первой половине массива, то вычислить количество элементов, равных первому четному отрицательному элементу. В противном случае, заменить остальные элементы массива, начиная со следующего номера, нулями.

Задача 14:
Найти наибольшую сумму из сумм каждой строки двумерного месива. Если таких чисел несколько, вывести на экран номера строк, для которых сумма наибольшая.

Задача 15:
Дана строка символов, содержащих слова, определить количество слов, начинающихся с буквы а.
=====================
Заранее благодарен....Тех кто не откажет в помощи, с удовольствием могу угостить пивком....или еще чем))) :D

[Vedun]

Пока успел только эти прорешать,сори,учеба и сессия на носу.Постараюсь еще к ночи что-нибудь решить.
Задание 1

var
mas:array[1..15] of integer;
i,b,a,la:integer;
pro:boolean;
begin
Write('Enter ch a: ');{вводим число а,на котором программа остановится}
ReadLn(a);
pro:=false;
repeat
if round(mas[i]/2)*2=mas[i] then b:=b+1;{проверяется четность}
if i=15 then pro:=true;
if la=a then pro:=true;
i:=i+1;
until pro=true;
WriteLn('Ch chet el: ',b);
ReadLn;
end.

Задание 2

var
mat:array[1..3,1..4] of integer;
sum:array[1..3] of integer;
la,a,i,j,d:integer;
begin
Write('Enter ch a: ');
ReadLn(a);
for i:=1 to 3 do
 if mat[i,1]>a then
  begin
   for j:=1 to 4 do
    sum[d]:=sum[d]+mat[i,j];
   d:=d+1;
  end;
for i:=1 to d do
WriteLn('Sum ',i,': ',sum[i]);
ReadLn;
end.

[Slonoboy]

что то у меня не одна в турбопаскале не запускается выдается ошибка неизвестного индификатора(

[Xardas]

А учиться как то нужно....

Хорошая учеба у Вас получается... В том, что Вы "не шарите" целиком и полностью виноваты лень и нехотение... Если Вам "учиться как-то нужно" берем в руки книгу и вперед, тем более что и задачки у Вас типовые...

Кстати и просьба у Вас звучит "помочь...", а не сделать все полностью за Вас... Хотите халявы? Тогда Вам во фриланс... там правда "халява" будет кое-что стоить...

[Vedun]

Первые две задачи поправил,будут работать в паскале...Оставшиеся придется до ума доводить,я только алгоритм напишу с пояснениями...

Задача 3.

for i:=1 to x do {x-длинна строки}
if Ord(wor[i])=32 then {ищит пробелы в строке,сравнивая код каждого символа с кодом пробела}
if Ord(wor[i+1]=Ord('a') {при совпадении сравнивает код следующего символа с кодом буквы 'а'}
then k:=k=1;{при совпадении число k повышаетя на еденицу}

Задача 4.

for i:=a1 to a2 do {a1-начало промежутка,a2-его конец}
sum:=sum+mas[i]; {суммируются элементы}
otvet:=sum/(a2-a1); {находится среднее значение,otvet лучше делать real}

Задача 6.

mas[1]:=1; {}
d:=2; {}
for i:=1 to x do {по аналогии с 3}
if Ord(dd[i])=32 then {по аналогии с 3}
begin
mas[d]:=i; {записываем номер символа в строке равный пробелу}
d:=d+1; {}
end;
for i:=1 to d do {}
if round((mas[i+1]-mas[i])/2)*2=(mas[i+1]-mas[i]) then k:=k+1; {здесь про четность символов в слове,вычитаются положения крайних пробелов-так находим длинну слова}

Задача 7.

repeat
if round(mas[i]/2)*2=mas[i] then {проверяем четность}
k:=k+mas[i]; {находим сумму}
i:=i+1;
if mas[i]=0 then pro:=true; {проверяем равен ли ээлемент 0}
until pro:=true; {}

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

[Arkuz]

Задача 9

var
 s:string;
 i,k,dlina:integer;
begin
  write('VVedite stroku simvolov: ');
  readln(s);
  dlina:=length(s);
  k:=0;
  {проверка 1 символа в строке на русские "а" и "А"}
  if (ord(s[1])=128) or (ord(s[1])=160)
  {проверка 1 символа в строке на английские "а" и "А"}
    or (ord(s[1])=65) or (ord(s[1])=97) then k:=k+1;
  for i:=1 to dlina do
   begin
    if (s[i]=' ') then {поиск пробела}
    {Аналогичные проверки первых символов после пробела}
     if (ord(s[i+1])=128) or (ord(s[i+1])=160)
       or(ord(s[i+1])=65) or (ord(s[i+1])=97) then k:=k+1;
   end;
  writeln('Slov nachinaiushihsya s "A" ',k);
  readln;
end.

[Arkuz]

Задача 10

const end_count=5;
var
 mas:array[1..end_count] of integer;
 i,sr_arif,k:integer;
begin
  randomize;
  k:=0;
  for i:=1 to end_count do
  begin             {запись произвольных элементов в массив}
   mas[i]:=random(99);
   writeln('mas[',i,'] = ',mas[i]);
   k:=k+mas[i];
  end;
  sr_arif:=round(k/end_count);  {находим ср. арифметическое}
  writeln('Srednee arifmeticheskoe el-ov massiva = ',sr_arif);
  k:=0;
  for i:=1 to end_count do
  begin           {сравнение эл-та массива со ср. арифметическим}
   if mas[i]>sr_arif then k:=k+1;
  end;
  writeln('Kol-vo el-ov massiva bolshih chem sr. arifmeticheskoe = ',k);
  readln;
end.