Var
a,b,c,d:real;
k:byte;
Begin
k:=0;
Write('Введите четыре вещественных числа: ');
ReadLn(a,b,c,d);
if a<0 then k:=k+1;
if b<0 then k:=k+1;
if c<0 then k:=k+1;
if d<0 then k:=k+1;
WriteLn('Количество отрицательных: ',k);
End.
Ответ:
function getSmallArrayItem(arr: array [0..9] of integer): integer;
begin
result := arr[0];
for i := 1 to (Length(arr) - 1) do
begin
if (array[i] < result) then
result := array(i);
end;
end;
Объяснение:
1. 1305
Ответ на 1 вопрос ну либо там со знаком минус
Электронная почта просматривается на локальной машине и гризит весь объём с почтового сервера.
А Веб почта позволяет просматривать почту с любой машины имеющий доступ в сеть.