<span>var
a: array [1..100] of integer;
i, n , max : integer;
begin
writeln('rozmer');
readln(n);
randomize ;
if (( n>=1) and (n<=35)) then
for i:=1 to n do begin
a[i]:=random(90)-45 ;
write(a[i]:3);
end;
writeln;
max:=a[1] ;
for i:=2 to 100 do begin
if a[i]>max then max:=a[i] ;
end;
writeln(max);
end<span>.</span></span>
Придумайте две задачи на конъюнкцию и дизъюнкцию(с решением)
<span>пожалуйста</span>
Var
k,sum:integer;
begin
for k:=230 to 430 do
if (k mod 2<>0) then
sum:=sum+k;
write(sum);
end.
1-Кодирование
2-передача это там где перец
3-обработка там где краб
4-хранение там где рюкзак
А дальше не знаю