Тема: Перша літера в рядку
program alfa;
USES CRT;
type
E=record
kol,ves:real;
f:string;
end;
var
r:array [1..30] of E;
a,b:real;
i,n,x,z,j:integer;
c:char;
Begin
writeln('Введите количество записей');
readln(n);
for i:=1 to n do
begin
writeln('Введите Фамилию абонента');
readln(r[i].f);
writeln('Введите кол вещей');
readln(r[i].kol);
writeln('Введите вес вещей');
readln(r[i].ves);
end;
for i:=1 to n do
writeln('#',i,'|',r[i].f,'|',r[i].kol,' |',r[i].ves);
writeln('Введите количество для сорт');
readln(a);
writeln('Введите вес вещей для сорт');
readln(b);
for i:=1 to n do
if(a<r[i].ves)and(b<r[i].kol) then
begin
writeln('Фамилия пасажира');
writeln(r[i].f);
end;
writeln('ВВедите букву');
readln(c);
writeln('Фамилия на букву ',c);
for i:=1 to n do
begin
if r[i].f[1]=c then
writeln(r[i].f);
end;
End. Дано одновимірний масив з N елементів (N задається користувачем), що містить інформація про багаж пасажирів потягу. Багаж пасажира характеризується: прізвищем власника, кількістю речей і загальною вагою речей.
1. Вивести список пасажирів, що мають більше N речей, загальна вага яких перевершує M кілограм.
2. Вивести список пасажирів фамілія яких починається з заданої букви
може кому знадобиться
Зокрема: