<span>С:\
</span>С:\мои документы
С:\<span>фильмы
</span>С:\фильмы\<span>интересный фильм.avi
</span>С:\мои документы\иванов
С:\мои документы\<span>петров
</span>С:\мои документы\иванов\<span>QBasic.exe
</span>С:\мои документы\иванов\<span>рисунки
</span>С:\мои документы\иванов\рисунки\<span>море.bmp
</span>На будущее, перефоткай страницу с этим заданием. Так ничего не понятно.
Тебя спасло, что она у меня на диске завалялась. Без той картинки это невозможно.
Word - Абзац - Отступы и интервалы - Интервал
Ответ 132. Т.к цикл проработает 11 раз
12*11 = 132
Var
i,min:integer;
m:array[1..10] of integer;
begin
for i:=1 to 10 do
begin
readln(m[i]);
if i=1 then min:=m[i];
if m[i]<min then min:=m[i];
end;
for i:=1 to 10 do
begin
if m[i]=0 then m[i]:=min;
write(m[i],' ');
end;
<span>end.</span>
Var a:array[1..100]of integer;
i,sum,n:integer;
begin
writeln("vvedite kol-vo elementov");
read(n);
sum:=0;
for i:=1 to n do
read(a[i]);
for i:=1 to n do
sum:=sum+a[i];
writeln("summa vseh elementov = ",sum);
<span>end.</span>