Определить, сколько фамилий в списке состоят из 8 или 9 букв. (тема: строковый тип данных)

как по мне то лучше удобство и ничего лишнего, ведь список сохранять не говорили

var s: string;

k: integer;

begin  repeat      write('введите фамилию: ');       readln(s);       if (length(s)=9) or (length(s)=8) then

          k: =k+1   until s=''; {прекращаем чтенье если нам посылают пустую строку}  writeln(k); end.

это без использования файлов

var spisok: array [word] of string; {объявляем массив для хранения фамилий} n,i,k: word; {n - количество фамилий,i - переменная, k - количество фамилий в списке равных 8 или 9 буквам}

beginwrite('введите количество фамилий в списке n = '); readln(n); for i: =1 to n do beginwrite('введите фамилию ',i,' : '); readln(spisok[i]); if (length(spisok[i])=9) or (length(spisok[i])=8) then inc(k); {inc(k) - это тоже самое ,что k: =k+1; }end; writeln('количество фамилий в списке состоящих из 8 или 9 букв = ',k); end.

п.с. если вам потребуется,обработка конкретно через фаил напишите мне, так как в условии вы не указали точно через что!

на каком языке нужна программа?   пример на paskal:   program zadacha;   var massiv: array [1..15] of integer; i: byte; massiv2: array [1..15] of real;   begin  randomize;   write('isxodnij massiv: ');   for i: =1 to 15 do  begin  massiv: =random(41)-20;   write(massiv,' ');   end;   writeln;   writeln('massiv posle preobrazovanij: ');   for i: =1 to 15 do  begin  if massiv=0 then massiv2: =massiv  else  if massiv mod 5 = 0 then massiv2: =massiv*2  else begin  massiv2: =massiv;   massiv2: =massiv2/2;   end;   write(massiv2: 0: 1,' ');   end;   readln;   end.

у меня получилось, что первое число 954, второе 459, а третье 495. т.е. получился пример : 954-459=495