Турбо паскаль Исходные данные: список 20 фамилий сотрудников. Определить номер сотрудника...

Question

Турбо паскаль

Исходные данные: список 20 фамилий сотрудников. Определить номер сотрудника по заданной фамилии. Если такого нет в списке, напечатать: «В списке не значится»

Answer 1

Ок вот программа на Pascal.Abc.Net
она идет на любой паскаль даже фри паскаль

var
a: array [1..100] of string;
i, e: integer;
s: string;


begin
while i < 20 do
begin
i += 1;
read(a[i]);
end;


read(s);
i := 0;

while (i < 20) and (e = 0) do
begin
i += 1;
if a[i] = s then
e := 1 ;
end;


if e = 1 then
writeln('Найдено, ' + a[i])
else
writeln('Не нашлось');
end.