Если перегорят все вертикальные секторы, то цифры 5 и 8 будут выглядеть одинаково (см. рисунок). Все оствльные можно будет однозначно определить.
ОТвет: В) 8
Const n=11;
var a,c,b:array [1..n] of integer;
i,j,k:integer;
begin
randomize;
writeln ('Исходный массив:');
for i:=1 to n do begin
a[i]:=random (13)-6;
c[i]:=random (13)-6;
end;
for i:=1 to n do
write (a[i]:3);
writeln;
for i:=1 to n do
write (c[i]:3);
for i:=1 to n do
if a[i]>c[i] then b[i]:=c[i]
else if a[i]=b[i] then b[i]:=a[i]
else b[i]:=a[i];
writeln;
writeln ('полученный массив');
for i:=1 to n do
write (b[i]:3);
readln;
end.
Компьютеры в интернете различают с помощью IP-адреса(<span>Интернет-протокол) который присваивается компьютеру при подключению к интернету.
Документы в интернете различают по их названию и типу файла</span>
1) var a: array[0..10] of integer; i, s: integer;
begin
for i := 1 to 10 do begin
a[i] := random(60);
write(a[i], ' ');
if a[i]<=20 then s:=s+a[i];
end;
writeln;
writeln(s);
<span>end.
2) </span>var a: array[0..10] of integer; i, s: integer;
begin for i := 1 to 10 do begin
a[i] := random(60);
write(a[i], ' ');
// if (i mod 2=1) then s:=s+a[i]; Раскоментируй, если сумму нужно искать среди нечетных номеров элементов.
// if (a[i] mod 2=1) then s:=s+a[i]; Раскоментируй, если сумму нужно искать среди самих нечетных элементов.
end;
writeln;
writeln(s);
end.
var
s,i,b,a:integer;
begin
Writeln('Введите два целых числа через пробел');
readln(a,b);
s:=0;
for i:=1 to b do s:=s+a;
writeln(s);
<span>end.</span>