Можно переслать файл размером в 2 Кбайта. (16 Кбайт делить на частное 512 байт и 512 бит)
Сначала считаем кол-во символов - 22.Потом умножаем на 8 получается 176 бит.
Ответ:4)176 бит
Var a,b: array [0..100] of integer;
i, j, s,k,max: integer;
begin
FOR I:= 1 TO 5 do begin
FOR J:=1 TO 20 do begin
k:=k +1;
(A[k]):= random(90)+78;
write((A[k]:4));
if max < a[k] then begin max:=a[k];s:=k; end;
END;
write('A[' + s +'] =':8, max:4 );B[s]:=max;
writeln;
s:=0;max:=0;
END;
writeln;k:=0;
FOR I:= 1 TO 5 do begin
FOR J:=1 TO 20 do begin
k:=k +1;
if b[k] > 0 then (b[k]):= random(90)+78; //забег номеров победителей
if max < b[k] then begin max:=b[k];s:=k; end; //победитель среди
победителей
write((b[k]:4));
END;
writeln;
END;
write('A[' + s +'] =':8, max:4 );
end.
только мало что осталось от той программы много
ошибок Главная n нельзя в константы она не будет делиться и т.д.
1) Растение
2) Компьютер, ситуация может восприниматься как "черный ящик"
3) Автомобиль
4) Телевизор, ситуация может восприниматься как "черный ящик"
5) Фотокамера, ситуация может восприниматься как "черный ящик"
6) Пациент
7) Часы
А, б, г, е, з насчёт почты не очень уверен