Преподаватель дал задачу
Её требуется выполнить с помощью двумерных символьных массивов, текстовых файлов и без процедур.
Задача:
Дан список владельцев телефонов (10 человек) в виде
ФАМИЛИЯ ТЕЛЕФОН
15 симв. 9 симв.
Данные в одной строке отделяются друг от друга пробелами .
Найти строку с первой по алфавиту фамилией и с наименьшим номером телефона.
Ниже заготовка программы:
program PP1;
type
t=array [1..20] of char;
tt=array [1..10] of t;
var
A:tt;
i,j:integer;
Begin
assign(input,'dan1.inp');
reset(input);
assign(output,'res1.out');
rewrite(output);
For i:=1 to 10 do
Begin
For j:=1 to 20 do
Begin
read(A[i,j]);
write(A[i,j]);
end;
readln;
writeln;
Какие у кого мысли. пишите.
Просидел целый день так ничего и не добился.
М | Тэги!! Правила Форума, п.5. Lapp |