Выломать-открыть
Закрыть-разбить
Зависти-отрегулировать
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);
<span>end.</span>
1-ажк
2-ажек
3-ажевк
4-ажевдк
5-аек
6-аевк
7-аевдк
8-абвк
9-абвдк
10-агбвк
11-агбвдк
12-агвдк
13-агвк;
13
Ответ:
вот на фото представлен пример, а там уже делайте свою по своей заданной теме