Дан целочисленный массив из 6 элементов.

1. Найти и вывести номер первого элемента массива, который имеет нечётное значение.

2. Найти и вывести сумму элементов массива, которые делятся на последний элемент и меньше, чем первый.

Question

Информатика

Мстислава

4 сентября, 17:20

Дан целочисленный массив из 6 элементов.

1. Найти и вывести номер первого элемента массива, который имеет нечётное значение.

2. Найти и вывести сумму элементов массива, которые делятся на последний элемент и меньше, чем первый.

+2

Ответы (1)

Знаете ответ на вопрос?

Лора · Answer 1

Var mas: array [1 ... 6] of integer;

var i, b, sum: integer;

begin

for i:=1 to 6 do mas[i]:=random (101) ;

b:=0;

while i<=6 do if mas[i] mod 20 then

begin

b:=i;

i:=7;

end

else inc (i) ;

sum:=0;

for i:=1 to 6 do if (mas[i] mod 2=0) and (mas[i]
writeln (b) ;

writeln (sum) ;

end.