Question

Программа на языке pascal: в текстовом файле найти строку, содержащую слово с наибольшим числом гласных букв. вычислить произведение чисел в этой строке. (строк несколько) например: (12 строка): aba cda 34 решение: (№строки) (слово с наиб.кол-вом гласн.) (произведение чисел в строке) буду признателен

Answer 1

//Pascal
//Файл fileText.txt должен быть в папке с программой

const
  Vowels = ['e', 'u', 'i', 'o', 'a', 'y', 'E', 'U', 'I', 'O', 'A', 'Y'];
var
  t: text;
  s: char;
  n, min, mult, mult2, count, count2: integer;
begin
  Assign(t, 'fileText.txt');
  Reset(t);
  n := 0; min := 0; mult := 1; count := 0;
  while not eof(t) do
  begin
    count := count + 1;
    while not eoln(t) do
    begin
      read(t, s);
      if s in Vowels then
        inc(n);
      if s in ['0' .. '9'] then
        mult := mult * (Ord(s) - 48);
    end;
    if n > min then
    begin
      min := n;
      mult2 := mult;
      mult := 1;
      count2 := count;
    end;
    readln(t);
    n := 0;
    mult := 1;
  end;
  Close(t);
  write(count2, ' строка. ');
  write('Произведение = ', mult2, '. ');
  writeln('Гласных = ', min);
  readln;
end.