var
nm,snm:array of string;
age:array of integer;
k,s:integer;
begin
write('Введите общее кол-во студентов - '); readln(k);
setLength(nm,k); setLength(snm,k); setLength(age,k);
for var i1:=0 to k-1 do begin
writeln('[Студент ',i1+1,']');
write('Имя - '); readln(nm[i1]);
write('Фамилия - '); readln(snm[i1]);
write('Возраст - '); readln(age[i1]);
end;
for var i2:=0 to k-1 do
if age[i2]<16 then s:=s+1;
writeln; writeln('Кол-во студентов которым меньше 16 лет = ',s,' человек:');
for var i2:=0 to k-1 do begin
if age[i2]<16 then writeln(nm[i2],' ',snm[i2],' ',age[i2],' лет');
end;
end.
Все поступающие грузы помечены штрихкодами. Проведение технологических складских операций под контролем системы производится на основании данных штрихкодов, места хранения и погрузочной техники. Погрузочная техника и работники склада оснащаются радиотерминалами ввода-вывода данных, которые представляют собой переносной компьютер, общающийся с головным сервером системы по радиоканалу. Система может использовать любой из существующих типов кодов или печатать этикетки с внутренним штрихкодом.
При проведении инвентаризации специалисты с терминалов для сбора данных (ТСД) считывают штрихкоды, которые автоматически заносятся в базы данных приборов.