Программы в Pascal

[Павел Кленин]

Помогите пожалуйста в создании двух программ!

Проверить, верно ли что в строке чередуются гласные и согласные буквы. Пробелы игнорируются.

Дан массив из слов Х(m). Найти все слова четной длинны.

Заранее большое спасибо!

[Летучий_СкилетиК]

задача 1:

var
   m1,m2: set of char;
   a:string;
   i:integer;
   g:boolean;
begin
read(a);
m1:=['а', 'и' ,'е' ,'у' ,'о' ,'я' ,'ю' ,'э'];// гласные буквы
m2:=['й' ,'ц' ,'к' ,'н' ,'г' ,'ш' ,'щ' ,'з' ,'ф' , 'в' ,'п' , 'л' ,'д' ,'ч' ,'с' ,'м' ,'т' ,'ь' ,'б'];// согласные буквы
g:=false;
for i:=2 to length(a) do
    if ((a[i-1] in m1) and (a[i]in m2)) or ((a[i-1] in m2) and (a[i]in m1)) then g:=true;
if g then writeln('Yes') else write('No');
end.

[Летучий_СкилетиК]

uses crt;
var
   a:array [1..100]of string;
   i, j, n, l:integer;
   b:string;
begin
clrscr;
read(b);
l:=0;
i:=1;
while (i <= length(b)) do
begin
    while ((i <= length(b)) and (b[i]=' '))do
          i:=i+1;
    l:=l+1;
    a[l]:='';
    while ((i <= length(b)) and (b[i]<>' '))do
    begin
          a[l]:=a[l]+b[i];
          i:=i+1;
    end;
end;
if b[length(b)]=' ' then l:=l-1;
for i:=1 to l do
if length(a[i]) mod 2 = 0 then writeln(a[i]);
end.

здесь сможете поменять по желанию принцип ввода (считать с файла и тд.)

read(b);

если оставить как есть то длина вводимой строки не будет более 256 символов

[Павел Кленин]

Большое спасибо если что то не пойму спрошу

[malish-z]

Пожалуйста помогите найти ошибку, нужно вывести положительные элементы главной диагонали матрицы размером nxn, а эта прога выводит абсолютно все элементы главной диагонали

Program P1;
uses crt;
const n=3;
var a:array[1..n,1..n] of integer;
i,j:integer;
begin
writeln('zadaite element matrici po strokam:');
for i:=1 to n do
for j:=1 to n do
begin
write('a[',i,j,']=');
readln(a[i,j]);
end;
if a[i,j]>0 then
writeln('dodatni elementu golovnoi diagonali matrici A:');
for i:1 to n do
writeln('a[',i,i,']=',a[i,i]);
writeln
if a[i,i]<0 then
begin
writeln('dodatnix elementiv na golovnij diagonali nemae');
end;
readkey end.

[Vanta11a]

Program P1;
uses crt;
const n=3;
var a:array[1..n,1..n] of integer;
i,j:integer;
begin
writeln('zadaite element matrici po strokam:');
for i:=1 to n do
for j:=1 to n do
begin
write('a[',i,j,']=');
readln(a[i,j]);
end;
// if a[i,j]>0 then //в топку, не могу понять, зачем оно тут 
writeln('dodatni elementu golovnoi diagonali matrici A:');
for i:=1 to n do
// writeln('a[',i,i,']=',a[i,i]); //в топку вывод всех элементов
// writeln
// if a[i,i]<0 then
// begin
// writeln('dodatnix elementiv na golovnij diagonali nemae');
// end; //в топку бредовое условие
if a[i,i]>0 then //элемент положительный? Выводим
write ('a[',i,i,']=',a[i,i]); 
readkey;
end.

[malish-z]

спасибо огромное, два часа мучалась над этой задачкой