Из перечисленного списка выберете название поисковых систем интернета a. l m p r e s s b. проводник c. g o o g l e d. a l t a v i s t a e. o u t l o o k e x p r e s s f. y a n d e x

F.C.B 0000000000000000000000000000000000000

 Задача нелогичная, получается, что он должен обучиться 5 операциям (4 действия и числа), на все эо дано 3 месяца. 

1. Пусть за 1й мес он выучит числа - то есть 1 операцию.

2. За 2й мес он выучит + или -, то есть 1 операцию.

3. За 3й мес он выучит или -, или *, или : ЛИБО или +, или *, или : - то есть 1 операцию.

Всего за 3 месяца он может выучит 3 операции из желаемых 5 независимо от того, в какой последовательности он будет осваивать их.

ответ: не успеет, ему необходимо 5 месяцев либо увеличить количество операций, изучаемыз в месяц.

Как-то так я думаю

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1)

var mas: array[1..10] of real = {.,.,}; // перечисление элементов массива, который дан по условию задания

var counter: integer;

begin

for i:= 1 to 10 do

begin

if mas[i]<0 then counter:=counter+1;

end;

end.

2)

var mas: array[1..5] of integer = {.,.,}; // перечисление элементов массива, который дан по условию задания

var counter: integer;

begin

for i:= 1 to 5 do

begin

if (mas[i]>0) and (i mod 2 = 0) then counter:=counter+1;

end;

end.

3)

var mas: array[1..15] of integer = {.,.,}; // перечисление элементов массива, который дан по условию задания

var counter: integer;

begin

for i:= 1 to 15 do

begin

if (mas[i]>5) and (i mod 2 = 0) then counter:=counter+1;

end;

end.

4)

var mas: array[1..15] of integer;

var counter: integer;

begin

for i:= 1 to 15 do

begin

mas[i] = random(20) - 5;

end;

for i:= 1 to 15 do

begin

writeln(mas[i]);

end;

for i:= 1 to 15 do

begin

if (mas[i]>0) then counter:=counter+1;

end;

end.

5)

var mas: array[1..7] of real = {.,.,}; // перечисление элементов массива, который дан по условию задания

var counter: integer;

begin

for i:= 1 to 7 do

begin

readln(mas[i]);

end;

for i:= 1 to 7 do

begin

if mas[i]>0 then mas[i]=0;

end;

for i:= 1 to 7 do

begin

writeln(mas[i]);

end;

end.

6)

var mas: array[1..10] of real = {.,.,}; // перечисление элементов массива, который дан по условию задания

var counter: integer;

var sum: real;

var average: real;

begin

for i:= 1 to 7 do

begin

readln(mas[i]);

end;

for i:= 1 to 7 do

begin

if mas[i]<0 then

begin

sum:=sum+mas[i];

counter:=counter+1;

end

end;

average:= sum/counter;

end.

Объяснение: