Если на диске хранятся сотни и тысячи файлов, то для удобства поиска используется многоуровневая иерархическая файловая система, <span>которая имеет древовидную структуру. Такую иерархическую систему можно сравнить, например, с оглавлением данного учебника, которое представляет собой иерархическую систему разделов, глав, параграфов и пунктов.
</span>
// составьте программу нахождения в массиве а( 10) индексов элементов значения которых не кратны 4
var i,x: word;
a : array [1..10] of integer;
Begin
writeln ('Введите 10 целых чисел');
for i:=1 to 10 do
Begin
write (i,' число ');
readln (a[i]);
end;
writeln;
for i:=1 to 10 do
Begin
x:=a[i] mod 4;
if x<>0 then writeln (i,' элемент таблицы не кратен 4');
end;
<span>End.</span>
Const l:array[1..26] of char = ('a','b','c','d','e','h','i','j','k','l','m','n','o','p','q','r','f','s','t','u','v','w','x','i','y','z');
Var
s:string;
j,i,k:integer;
a:array [1..100] of integer;
begin
readln(s);
k:=0;
For i:=1 to length(s) do
for j := 1 to 26 do
If s[i] = l[j] then
begin
a[j]:=a[j]+1;
end;
for i:=1 to 26 do begin
if a[i]<>0 then
writeln(l[i], ' = ', a[i]);
end;
<span>end.</span>
Uses crt;
var a:array [1..25] of integer; i,t,j,max,s:integer;
begin
max:=-10; s:=0; t:=0; j:=0;
for i:=1 to 25 do begin
a[i]:=random(18)-10;
if a[i]> max then begin
max:=a[i];
j:=i;
end;
end;
for i:=1 to 25 do begin
t:=t+1;
write(' a[',i:2,']=',a[i]:2);
if t=5 then begin
writeln;
t:=0;
end;
end;
j:=j+1;
for i:=j to 25 do
s:=s+a[i];
write(s);
end.<span> </span>
