Написать групповые имена для групп 1-ая 2-ая 3-я 4-ая rembota.txr delo.exe radio21.ris Vislo.tab rabota.txt lorab.exe rakio2.ris visloh.txt rbotais.txt sloarn.ex radztio22.ri Vislog2.tac

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, т.к. должны выполняться одновременно

Текст — зафиксированная на каком-либо материальном носителе человеческая мысль; в общем плане связная и полная последовательность символов. Существуют две основные трактовки понятия «текст»: имманентная и репрезентативная.

Графический объект - это изображение в окне финансового инструмента, которое можно выделить, переместить, изменить или удалить. К графическим объектам относятся, например, горизонтальные и вертикальные линии, канал линейной регрессии, уровни Фибоначчи, прямоугольник, текстовая метка и пр.