По-моему, ты не поставил какой-то знак перед последней скобкой в длинном выражении
var a:array[1..N] of integer;
s,K:integer;
begin
readln(K);
for i:=1 to N do readln(a[i]);
for i:=1 to N do
if (a[i] mod K=0) then s:=s+a[i];
write(s);
end.
Const n=10;
var a:array[1..n] of integer;
max,min,i:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(51);
write(a[i],' ');
end;
writeln;
max:=a[1];
min:=a[1];
for i:=1 to n do
begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
if i mod 2 = 1 then a[i]:=min else a[i]:=max;
end;
for i:=1 to n do write(a[i],' ');
writeln;
end.
Пример:
<span>31 35 3 5 26 46 9 31 30 11
31 35 3 35 3 46 3 46 3 46 </span>
(b∧f)∨(c∧f)∨(f∧(¬a))∨(a∧(¬b)∧(¬c)∧(¬f))
Любая информация является таковой только по причине того что она была принята отнеконго источника. То есть была передана.