Program z3; Var y: array [1..15] of real; g: array [1..20] of real; i,d: integer; sum, sum_2: real;Begin writeln('Введите оплату труда за день'); read(d); for i := 1 to 15 do y[i] := random (30) * d * 0.8; for i:=1 to 20 do g[i] := random (30) * d * 0.8; for i:=1 to 15 do begin writeln('Сотрудник y_',i,' - ',y[i]); sum:= sum + y[i]; end; writeln; writeln('Сумма отдела y - ', sum); writeln; for i:=1 to 20 do begin writeln('Сотрудник g_',i,' - ',g[i]); sum_2:= sum_2 + g[i]; end; writeln; writeln('Сумма отдела g - ', sum_2); writeln; End.
В сети с выделенным сервером один из компьютеров выполняет функции хранения данных, предназначенных для использования всеми рабочими станциями, управление взаимодействием между рабочими станциями и ряд сервисных функций. Такой компьютер обычно называют сервером сети. На нем устанавливается сетевая операционная система, к нему подключается все разделяемые внешние устройства (Принтеры модемы и т.д.). Взаимодействие между рабочими станциями в сети осуществляется через сервер. Логическая организация такой сети может быть представлена топологией «звезда». Роль центрального устройства выполняет сервер. Сети на основе сервера поддерживать тысячи пользователей. Сетями такого размера, будь они одноранговые, было бы невозможно управлять. Основным аргументом при выборе сети на основе сервера является, как правило, защита данных. В таких сетях проблемами безопасности может заниматься один администратор, он формирует политику безопасности и применяет в отношении каждого пользователя сети. В сетях с централизованным управлениям существует возможность обмена информации между рабочими станциями, минуя файл – сервер.
Var c,a,n,x:integer;
Begin
read (n);
for a:=1 to N do begin read (x) if x>0
then c:=c+1; end;
write (c,' чисел>10');
end.