var i,n,p,s,k,m:integer;
a:array [1..11] of integer;
begin
n:=10;
p:=1;
write('Массив: ');
for i:=1 to n do
begin
a[i]:=random(9)+1;
if a[i] mod 3 = 0 then p:=p*a[i];
write(a[i]:2,' ')
end;
writeln;
if p<>1 then writeln('Произведение элементов кратных 3 равно ',p)
else writeln('Элементов кратных 3 нет. Произведение элементов кратных 3 равно 0');
n:=9;
write('Массив: ');
for i:=1 to n do
begin
a[i]:=random(9)+1;
if a[i] > 5 then
begin
s:=s+a[i];
k:=k+1
end;
write(a[i]:2,' ')
end;
writeln;
if k<>0 then writeln('Cреднее арифметическое элементов массива больше 5 равно ',s/k:0:3)
else writeln('Элементов больше 5 нет. Cреднее арифметическое элементов массива больше 5 равно 0');
n:=11;
write('Массив: ');
for i:=1 to n do
begin
a[i]:=random(9)+1;
write(a[i]:2,' ')
end;
writeln;
m:=a[1];
for i:=2 to n do
if a[i]>m then m:=a[i];
writeln('Самый большой элемент массива равен ',m)
end.
Объяснение:
Адрес файла в сети интернет выглядит так: ПРОТОКОЛ://СЕРВЕР/ПУТЬ/ФАЙЛ Сначала указывается протокол http (Б), далее – двоеточие и 2 слеша (Г). После этого указывается название сервера ftp.net (Ж и Д). Так как нет указания на дополнительные папки, файл находится в корне сервера. Значит, далее идет слеш (В) и название файла www.txt (Е и А). Таким образом, последовательность букв БГЖДВЕА кодирует адрес указанного файла. ОТВЕТ: БГЖДВЕА
Источник: http://worksbase.ru/informatika/kak-reshat/245-dostup-k-failu.html
uses crt,graphabc;
var x:integer;
begin
x:=1;
for x:=190 to 465 do
begin
clrscr;
circle(150,150,15);
line(150,165,150,250);
line(150,250,130,270);
line(150,250,170,270);
line(150,180,180,175);
line(150,180,180,180);
circle(500,150,15);
line(500,165,500,250);
line(500,250,480,270);
line(500,250,520,270);
line(500,180,470,175);
line(500,180,470,180);
circle(x,170,10);
Delay(5);
end;
for x:=465 downto 190 do
begin
clrscr;
circle(150,150,15);
line(150,165,150,250);
line(150,250,130,270);
line(150,250,170,270);
line(150,180,180,175);
line(150,180,180,180);
circle(500,150,15);
line(500,165,500,250);
line(500,250,480,270);
line(500,250,520,270);
line(500,180,470,175);
line(500,180,470,180);
circle(x,170,10);
Delay(5);
end;
end.