Дан целочисленный массив из 6 элементов. 1. Найти и вывести номер первого элемента массива , который имеет нечётное значение. 2. Найти и вывести сумму элементов массива , которые делятся на последний элемент и меньше , чем пер...
Дан целочисленный массив из 6 элементов.
1. Найти и вывести номер первого элемента массива , который имеет нечётное значение.
2. Найти и вывести сумму элементов массива , которые делятся на последний элемент и меньше , чем первый.
Гость
Ответ(ы) на вопрос:
Гость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 2<>0 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]
Не нашли ответ?
Похожие вопросы