Необходимо решить 2 задачи на pascal

Відповідь:

1)

program Pascal01;

const

 minCountWords = 14;

var

 s: string;

 words: array[1..200] of string[100];

 indexWords: Integer;

 countWords: Integer;

 countCorrectWords: Integer;

begin

countWords := 0

indexWords := 0;

repeat

 indexWords := indexWords + 1;

 read(words[indexWords]);

until length(words[indexWords]) > 0;

if (indexWords < minCountWords) then

begin

  Write('Введено меньше 14 слов')

  Halt(1);

end

else

  countWords := indexWords;

countCorrectWords := 0;

for indexWords := 1 to countWords do

begin

 if (words[indexWords][1] = words[indexWords] [length(words[indexWords])]) then

    inc(countCorrectWords);

end;

Writeln('countCorrectWords= ', countCorrectWords);

end.

2)

program Pascal02;

const

 maxn = 100;

var

 massiv: array[1..maxn] of integer;

 index: Integer;

 indexFirst0: Integer;

 n: integer;

begin

Write ('Введите n=? ');

Readln(n);

for index := 1 to n do

begin

  Write ('Введите massiv[' + index + ']=? ');

  Readln(massiv[index]);

end;

indexFirst0 := -1;

index := 1;

while ((index < n+1) and (indexFirst0 = -1)) do

begin

 if massiv[index]=0 then indexFirst0 = index;

 inc(index);

end;

if (indexFirst0 = -1) then

  Writeln('В массиве нет элемента =0')

else

  Writeln('Индекс элемента =0 =', indexFirst0)

end.

Пояснення:

1)

а) будем вводить отдельно каждое слово. пустое слово (просто ентер) - конец ввода.

б) слова разместим сразу в массиве words[]

2)

вводим n

вводим n элементов массива

просматриваем массив, если нашли 0 - цикл прекращается. если массив закончился, а нуля нет то indexFirst0 = -1.

анализируем indexFirst0, если -1 - то нет, если не -1 - выводим индекс нуля.