Ответ:
program kod;
var
a: array [1..10] of Integer;
i, p: Integer;
begin
for i:=Low(a) to High(a) do a[i]:=-40+Random(91);
p:=1;
for i:=Low(a) to High(a) do if (a[i]>0) and (a[i] mod 7=0) then p:=p*a[i];
end.
Объяснение:
У меня второй вариант решения. Размерность массива: [1..10] можно любую делать
№ 1
Используя логические операции, запишите высказывания, которые являются истинными при выполнении следующих условий:
1) неверно, что 0 < X ≤ 3 и Y>5;
2) X является max(X,Y);
3) X не является min(X,Y);
4) Z является min(X,Y,Z).
№ 2
Используя логические операции, запишите высказывания, которые являются истинными при выполнении следующих условий:
1) Y не является max(X,Y,Z) и не является min(X,Y,Z);
2) X,Y,Z равны между собой;
3) каждое из чисел X,Y,Z положительно;
4) каждое из чисел X,Y,Z отрицательно.
Program chisloq;
uses crt;
var q: real;
begin
writeln ('Введите число');
readln (q);
if (q <150) and (q>100) and
((q>120) or (q <120)) then
writeln ('ВЕРНО')
else writeln('НЕВЕРНО');
end.