Var a: array[1..10] of integer; b: array[1..10] of real; i,n: integer; s: real; begin s:=0; n:=0; write('массив a: '); for i:=1 to 10 do begin read(a[i]); if a[i]<0 then begin s:=s+a[i]; n:=n+1; end; write(a[i],' '); end; s:=s/n; writeln; writeln('среднее арифметическое отрицательных: ',s); writeln('количество отрицательных: ',n); write('массив b: '); for i:=1 to 10 do begin if a[i]<0 then b[i]:=s else b[i]:=a[i]; write(b[i]:7:3); end; end.
1. Компьютеры одной организации, связанные каналами передачи информации длясовместного использования общих ресурсов и периферийных устройств и находящиеся водном здании, называют сетью: 3) локальной
2. Компьютер, предоставляющий свои ресурсы другим компьютерам при совместной работе,называется: 2) сервером
3) Выберите правильные ответы: 1) Каждый компьютер, подключенный к локальной сети, должен иметь сетевую карту Неверные ответы: 2) Одноранговые сети используются в том случае, если в локальной сети более 10 компьютеров (одноранговые сети как правило используются для маленьких сетей) 3) Сервер – это мощный компьютер, необходимый для более надежной работы локальной сети (сервер как правило, но не обязательно, мощнее, но уж точно нужен не для надёжности) 4) Сеть на основе сервера – когда все компьютеры локальной сети равноправны (не все равноправны - есть сервер и клиенты)
4. Интернет – это: 3) глобальная сеть
8. Сети, объединяющие компьютеры в пределах одного региона: 2) региональные
9. Сети, объединяющие компьютеры в пределах одной отрасли, корпорации: 3) корпоративные
10. Выберите из предложенного списка IP-адрес: 1. 193.126.7.29 (IP-адрес версии 4 - 4 числа от 0 до 255, разделённых точками)
12. Web-браузер – это: 4) клиент-программа WWW, обеспечивающая пользователю доступ к информационным ресурсам Интернета
13. Сеть, в которой каждый пользователь сам решает вопрос доступа к своим файлам, называют 3) одноранговой компьютерной сетью
14. Компьютер, подключенный к Интернет, обязательно имеет: 1) IP-адрес
b: array[1..10] of real;
i,n: integer;
s: real;
begin
s:=0; n:=0;
write('массив a: ');
for i:=1 to 10 do
begin
read(a[i]);
if a[i]<0 then
begin
s:=s+a[i];
n:=n+1;
end;
write(a[i],' ');
end;
s:=s/n;
writeln;
writeln('среднее арифметическое отрицательных: ',s);
writeln('количество отрицательных: ',n);
write('массив b: ');
for i:=1 to 10 do
begin
if a[i]<0 then b[i]:=s
else b[i]:=a[i];
write(b[i]:7:3);
end;
end.
массив a: 2 2 -3 1 -5 -6 -5 9 -7 5
среднее арифметическое отрицательных: -5.2
количество отрицательных: 5
массив b: 2.000 2.000 -5.200 1.000 -5.200 -5.200 -5.200 9.000 -5.200 5.000