Дан целочисленный массив из 6 элементов. 1. найти и вывести номер первого элемента массива , который имеет нечётное значение. 2. найти и вывести сумму элементов массива , которые делятся на последний элемент и меньше , чем первый.

ivasil2012 ivasil2012    3   24.06.2019 09:10    0

Ответы
Sasha03kms Sasha03kms  19.07.2020 22:16
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]<mas[1]) then sum:=sum+mas[i];
writeln (b);
writeln (sum);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика