Турбо паскаль (Массивы и строки)

[Igger]

Дан текст, напечатать те слова, которые отличны от последнего слова и удовлетворяют следующему свойству:
а) каждая буква входит в слово не менее 2х раз
б) в слове гласные буквы (a,e,i,o,u) чередуются с согласными

Не знаю как это написать.

Дана последовательность чисел. Если в результате замены отрицательных элементов последовательности их квадратами элементы будут образовывать неубывающую последовательность, то получить сумму элементов исходной последовательности, в противном случае их произведение.

program massiv;

const n =10;
var
 i:integer;
a:array [1..n] of real;
sum, pr:real;
flag:boolean;
begin


for i:=1 to n do
begin
write ('a[',i,']=');
readln (a[i]);
end;
sum:=0;
pr:=1;
while (i<=n) do
begin
if a[i]<0 then a[i]:= a[i]*a[i];
inc(i);
end;
flag:=true;
while (i<=n) do
begin
if a[i]<=a[i+1] then flag := false;
  break;
inc(i);
end;
if flag then while (i<=n) do
begin
sum:=sum+a[i];
inc(i);
end;
writeln ('summa =',sum)
else while (i<=n) do
begin
 pr:=pr*a[i];
 inc(i);
 end;
 writeln ('proizvedenie =',pr);
 readln;
 end

Правильно ли?

Вдруг кто-нибудь может написать это, заранее благодарю.



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

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

Поэтому, вот мой вариант. Если что-то непонятно - спрашивайте.

program massiv;

const n = 10;

type MyArray = array[1..n] of real;

function GetElementWithCheck(MM: MyArray; i: integer): real;
begin
  if MM[i] < 0 then GetElementWithCheck := sqr(MM[i])
  else GetElementWithCheck := MM[i]
end;

var
  i: integer;
  a: myArray;
  sum, pr: real;
  flag: boolean;


begin
  {заполенение массива}
  for i := 1 to n do
  begin
    write('a[', i, ']=');
    readln(a[i]);
  end;

  {проверка, что элементы массива с учётом квадрата отрицательных образовывают неубывающую последовательность}
  flag := true; {флаг = true - значит, последовательность неубывающая!}
  i := 1;
  while (i < n) and flag do
  begin
    if GetElementWithCheck(a, i) > GetElementWithCheck(a, i + 1) then flag := false
    else
      inc(i);
  end;

  if flag then begin
    sum := 0;
    for i := 1 to n do Sum := Sum + a[i];
    WriteLn('neubyvaushay posledovatelnost. summa =', sum: 0: 5);
  end
  else begin
    pr := 1;
    for i := 1 to n do pr := pr * a[i];
    WriteLn('ubyvaushay posledovatelnost. proizvedenie =', pr: 0: 5);
  end;
  readln;
end.

[Igger]

Дан текст, напечатать те слова, которые отличны от последнего слова и удовлетворяют следующему свойству:
а) каждая буква входит в слово не менее 2х раз
б) в слове гласные буквы (a,e,i,o,u) чередуются с согласными

Пожалуйста, помогите с этим, если это возможно.