Можете пройти этот тест и дать мне ответы? https://onlinetestpad. com/hmmsftdym3imu

program ms; uses crt; var a: array [1..10] of integer; l,k,s,i: longint; beginclrscr; writeln('введите 10 элементов массива'); for i: =1 to 10 dobegin    readln(a[i]);     if a[i]< 0 then l: =l+a[i];     if a[i]> 0 then k: =k+a[i]; end; s: =l*k; writeln(s); readkey; end.

var

i,s: integer;

begin

s: =0;

for i: =20 to 60 do

if i mod 5 =0 then s: =s+i;

writeln(s);

end.

(¬(m  v  l)  /\  k) → ((¬k  /\¬m)  \/  n)

(¬m /\ ¬l /\  k) → ((¬k  /\¬m)  \/  n)

ложно если первая часть 1 а вторая 0

¬m /\ ¬l /\  k = 1  => m=0, l=0,k=1

(¬k  /\¬m)  \/  n = 0

подставляем

(0 /\1)  \/  n = 0 => n=0