Var M: array[1..15] of integer; i, count: integer; begin for i := 1 to 15 do begin M[i] := random(15); write(M[i]:3); if(M[i] mod 2 = 0) then inc(count); end; writeln(#10, 'Кол-во четных элементов: ', count); <span>end.</span>
Var A:integer; Begin Write('Введите четырёхзначное число: ');ReadLn(A); WriteLn('S = ',(A div 1000)+(A div 100) mod 10+(A div 10) mod 10+A mod 10); End.