Управляющий объект: Человек
Объект управления 1: Кнопка
Объект управления 2: Часы
Цель управления: Вовремя дать звонок учащимся
Ну вы хотябы Сделайте фотографию чтобы посмотреть что там)
1. Переведём : 2550 КБ = 20400 Кбит
2. Определим время:
![\frac{20400}{850} = 24 (c)](https://tex.z-dn.net/?f=+%5Cfrac%7B20400%7D%7B850%7D+%3D+24+%28c%29)
3. Ищем неизвестное:
![\frac{x}{1190} = 24](https://tex.z-dn.net/?f=+%5Cfrac%7Bx%7D%7B1190%7D+%3D+24)
![x= 24 * 1190 = 28560](https://tex.z-dn.net/?f=x%3D+24+%2A+1190+%3D+28560)
x = 28560 Кбит
4. Переведём : 3570 КБ
Перевод осуществляется:
1 КБ = 8Кбит
var
i, s:integer;
<span>a: array [</span>1..7<span>] of </span>integer;
begin
for i:=1 to 7 do
begin
writeln('Введите эл. массива
A[',
i, ']');
readln(A[i]);
end;
for i:=1 to 7 do
if a[i]>0 then s:=s+a[i];
writeln('Сумма всех положительных
элементов массива: ', s);
end<span>.</span>
const
n=10;
var
a:array [1..n] of real;
z,i,k:integer;
begin
for i:=1 to n do
begin
write ('A[',i,'] = ');readln(a[i]);
end;
write ('Z = ');readln(z);
for i:=1 to n do
if a[i]>z then begin
a[i]:=z;
k:=k+1;
end;
for i:=1 to n do
if frac(a[i])=0 then write (a[i]:0:0,' ') else write (a[i]:0:1,' ');
writeln ('Kol-vo zamen: ',k);
readln;
end.