program z1;
var a:array[1..10] of integer;
i,s:integer;
begin
s:=0;
write('Массив: ');
for i:= 1 to 10 do
begin
a[i]:=random(1000);
write(a[i],' ');
if (a[i]>99) and (a[i]<1000) and (a[i] mod 10 mod 2 = 0) and (a[i] div 100 mod 2 <> 0) then s:=s+a[i]
end;
writeln;
write('Сумма элементов массива среди, трехзначных чисел, у которых последняя цифра четная, первая нечетная: ',s)
end.
Объяснение:
(a[i]>99) and (a[i]<1000) - проверка числа на трёхзначность
(a[i] mod 10 mod 2 = 0) - проверка последней цифры числа на чётность
(a[i] div 100 mod 2 <> 0) - проверка первой цифры числа на нечётность
все условия соединены and, т.к. должны выполняться одновременно
Текст — зафиксированная на каком-либо материальном носителе человеческая мысль; в общем плане связная и полная последовательность символов. Существуют две основные трактовки понятия «текст»: имманентная и репрезентативная.
Графический объект - это изображение в окне финансового инструмента, которое можно выделить, переместить, изменить или удалить. К графическим объектам относятся, например, горизонтальные и вертикальные линии, канал линейной регрессии, уровни Фибоначчи, прямоугольник, текстовая метка и пр.
ответ:
перепроверь правильность написания формул. проблема может быть даже в точке