1. Схема метро (метрополитен), топографическая карта (участок местности); план эвакуации (здание). P.S. В скобках указаны объекты, информационными моделями которых являются данные схемы.
2. География, GPS-навигация, производство (технологическая карта) и др.
var a:array[1..10] of integer;
i,min,j:integer;
begin
min:=maxint;
j:=0;
for i:=1 to 10 do
begin
readln(a[i]);
if (a[i]<min) and (a[i]>0) then
begin
min:=a[i];
j:=i;
end;
end;
writeln('Наименьший элемент массива равен',min,' индекс равен',j);
end.
var
n,i,otv,l,m,h,k: integer;
begin
writeln ('сколько человек в группе');
read (n);
for i:=1 to n do
begin
writeln ('какой язык ты изучаешь: 1-англ,2-нем,3-франц,0-никакой');
read (otv);
case otv of
0: l:=l+1;
1: h:=h+1;
2: k:=k+1;
3: m:=m+1;
end;
end;
writeln ('английский язык изучает',h,'человек');
writeln ('немецкий язык изучает',k,'человек');
writeln ('французский язык изучает',m,'человек');
writeln (l,'человек не изучает никакой язык');
end.