PascalAbc
1) Записать в файл последовательность из 19 чисел в диапазоне [-15;55]. Найти минимальный элемент среди четных элементов, записанных в файле.
2)Дан текстовый файл, в котором написана последовательность латинских слов, между словами пробел. Определить количество слов заканчивающихся на букву "a".

Предыдущий
вопрос Следующий
вопрос

1)

program MinEvenElement;
var
fileInput: Text;
number: integer;
minEven: integer;
begin
Assign(fileInput, 'numbers.txt');
Reset(fileInput);
minEven := 56; // initialize with maximum possible value
for var i := 1 to 19 do
begin
Read(fileInput, number);
if (number mod 2 = 0) and (number < minEven) then
minEven := number;
end;
Close(fileInput);
writeln('Min Even Element:', minEven);
end.

2)

program CountWordsEndingA;
var
fileInput: Text;
word: string;
countA: integer;
begin
Assign(fileInput, 'words.txt');
Reset(fileInput);
countA := 0;
while not EOF(fileInput) do
begin
Read(fileInput, word);
if word[length(word)] = 'a' then
countA := countA + 1;
end;
Close(fileInput);
writeln('Number of words ending with "a":', countA);
end.