//На Pascal
const N = 40;
var a: array [1..N] of longint;
i,k: longint;
begin
for i := 1 to N do
readln(a[i]);
k := 0;
for i := 1 to N - 1 do
if ((a[i] + a[i + 1]) mod 6 <> 0) and (a[i] * a[i + 1] <1000) then
k:=k+1;
writeln(k);
<span>end.</span>
НЕ (X < 6), следовательно, X >= 6
X нечетное
Между ними стоит "И", значит условия должны выполняться одновременно.
X >= 6 И X нечетное.
Наименьшее число будет 7.
Ответ: 7
var
a,b:integer;
begin
writeln('Введите два числа');
readln(a,b);
if a>b then
writeln ('Первое число больше , то есть',a, ')
else
writeln ('Второе число больше , то есть',b, ');
end.
Алгоритм примерно такой (max - максимальный элемент):
1) max:=a[1];
2) пускаем цикл от двух до n (n - третий, например)
for i:=2 to n do
if max<a[i] then max:=a[i];
Получается, что если наш максимальный элемент, который изначально равен первому элементу массива, меньше какого-либо из последующих, то мы нашему max присваиваем этот элемент
var a:array[1..8] of integer;
i: integer;
begin
for i:=1 to 8 do
begin
a[i]:=random(100);
writeln (i,' элемент: ',a[i])
end
end.