Вычислите сумму 4 целых чисел введенных с клавиатуры(нужно сделать с циклом предусловием постусловием и с параметром for ) нужно

Var     sum, i: longint;     a: array [1..4]  of longint; begin     writeln('введите  четыре  числа: ');     for i : = 1 to 4 do read(a[i]);           sum : = 0;     {сюда  вставишь  основной код  (который  ниже)}           write(sum); end. // цикл for     for i : = 1 to  4 do            sum : = sum + a[i]; //  цикл  с  предусловием        i : = 1;     while (i  <   5) do begin           sum : = sum + a[i];           i : = i + 1;     end; // цикл с постусловием       i  : =  1;       repeat              sum  : =  sum  +  a[i];           i : = i + 1;     until (i  > 4);

Адрес сети - это сетевая часть ip-адреса. альтернативой адресу являются идентификаторы устройств в форме символических имён, удобных для запоминания. например, в пределах локальной сети  — это сетевое имя компьютера, в сети  — доменное имя. специальные сетевые протоколы (dns, wins и  т.  п.) обеспечивают автоматическое определение соответствия между именами и адресами. в ip-сетях так же существуют понятия общий сетевой адрес (broadcasting address) и адрес сети. например в сети определяемой как 192.168.0.0/24 ip-адрес сети будет 192.168.0.0, а «общий сетевой адрес»  — 192.168.0.255. первый используется для ссылок на саму себя, последний  — для отправки пакетов на все доступные узлы сети. поэтому выделяемый диапазон ip-адресов для узлов (хостов) этой сети (например для сервера с dhcp) будет 192.168.0.1  — 192.168.0.254. понятие сетевого идентификатора так же важно для понимания. ip-адрес по версии ip4 хранится в 32 битах. запись 192.168.0.0/24 (cidr) означает, что маска сети будет 255.255.255.0  — то есть 24 бита являются сетевым идентификатором, а остальные 8 выделяются под адрес конкретного узла (например, компьютера) этой сети. таким образом, в адресе конкретной машины 192.168.0.100, «сетевой идентификатор» равен «192.168.0», а адрес машины «100».

Const  n=20; var  m: array[1..n]of real;   i, group: byte;   fl: boolean; begin       for i : = 1 to 20 do       begin           m[i] : = random(20) - 10;           writeln('[', i, '] => ', m[i]);       end;   group: =0;   fl: =false;   for i: =1 to n-1 do     if (m[i]> 0) and (m[i+1]> 0) then fl: =true    else     if fl and (m[i+1]< =0) then   begin   inc(group);   fl: =false   end;   if (fl) then inc(group);   writeln(group); end.