Я считаю, что мир сильно не изменится. Изменится только то как люди будут проводить свое свободное время. Вместо того, чтобы проводить его в одиночестве, сидя перед экраном своего ноутбука, они будут собираться вместе, играть футбол , хоккей и другие игры , придумывай совместные развлечения, занимайся чтением и тем , что каждому нравится. Но есть и минусы . Без интернета людям сложнее и дольше придётся искать нужную информацию. Также они не смогут общаться без рамок на основе языков и культур, не смогут делать покупки через интернет , заниматься обучением, узнавать независимую информацию о том или ином событии . Я бы не хотела , чтобы интернет исчез, потому что он позволяет мне общаться с разными интересными людьми, смотреть любимые фильмы, учиться, выполнять домашние задания и многое другое. Я считаю , что интернет очень облегчило жизнь человека. Только нам надо научиться правильно им пользоваться.
Program NoName;
var
a:array [1..3000] of integer;
b,c,i,n:integer;
Begin
WriteLn('введіть кількість чисел');
ReadLn( n );
a[1]:=1;
a[2]:=1;
b:=0;
WriteLn('Список ',n,' чисел Фібоначі');
WriteLn(a[1]);
WriteLn(a[2]);
for i:= 3 to n do
begin
a[i]:=a[i-2]+a[i-1];
b:=b+a[i];
WriteLn(a[i]);
end;
b:=b+a[1]+a[2];
WriteLn('Сума усіх чисел Фібоначі становить ',b);
end.
Или 4,или 1
но больше всего 4
Объяснение:
Вариант 6
const
N = 10;
var
a: array[1..N] of integer;
i, max1, max2: byte;
begin
randomize;
for i:=1 to N do begin
a[i] := random(10);
write(a[i]:3);
end;
writeln;
max1 := 1;
for i:=2 to N do
if a[i] > a[max1] then
max1 := i;
if max1=1 then
max2 := 2
else
max2 := 1;
for i:=2 to N do
if i <> max1 then // чтобы пропустить max1
if a[i] > a[max2] then
max2 := i;
writeln(max1,' ', a[max1]);
writeln(max2,' ', a[max2]);
end.
Вариант 8 не получилось