var a: array[1..10] of integer;
i,p: integer;
begin
randomize;
p:=1;
for i:=1 to 10 do begin
a[i]:=random(11)-5;
write(a[i],' ');
if a[i]<>0 then p:=p*a[i];
end;
writeln;
write('p=',p);
end.
Http://spiders.ru/widow.mp3
<span>БГВДАЖЕ</span>
А) В ответе будут все документы, в которых встречается слово чемпионы и слова бег и плавание встречаются в одном предложении.
б) В ответе будут документы, в которых в одном предложении есть слова чемпионы и плавание.
в) В ответе будут документы, в которых есть слова чемпионы, бег и плавание не зависимо от того, в одном они предложении или нет.
г) Здесь в одном предложении должны быть все слова: чемпионы, Европа, бег, плавание.
А вот графически не могу.
Var
num: word;
begin
read(num);
write(num);
end.
__________________________
Все вроде как по заданию
1) Подпрограмма (функция) может непосредственно вернуть значение в вызывающую программу, например: x:=cos(y);
2) Подпрограмма может изменить значение значение глобальных переменных, и их новое значение будет доступно в вызывающей программе;
3) Подпрограмме в качестве параметра может быть передан адрес объекта в памяти, и подпрограмма, изменив значение, передаст новое значение в вызывающую программу;
4) Подпрограмме в качестве параметра может быть передана ссылка на объект, и подпрограмма сможет изменить значение этого объекта.
Вроде всё... Хотя нет
5) Возможен обмен данными через файл - подпрограмма записывает данные в файл, вызывающая программа - читает эти значения (или наоборот). Это, конечно, крайне не эффективно и на практике никогда не применяется, но возможность такая есть.