Операционная система - системная программа, и ни текстовым редактором, ни приложением, ни, тем более, системой программирования она быть не может.
Const
n = 7;
var a: array [1..n] of integer; i, m0, m1: integer;
begin
m0:=0; m1:=0;
writeln('Массив -->');
for i:= 1 to n do readln(a[i]);
for i:= 1 to n do begin
m0:=m0+a[i];
if a[i] mod 2 = 0 then m1:= m1+a[i];
end;
writeln('Cумма четных элементов массива: ',m1);
writeln('Cреднее арифметическое всех элементов массива: ',m0/n);
end.
365/2=182 (1 в остатке)
182/2=91 (0 в остатке)
91/2=45 (1 в остатке)
45/2=22 (1 в остатке)
22/2=11 (0 в остатке)
11/2=5 (1 в остатке)
5/2=2 (1 в остатке)
2/2=1 (0 в остатке)
1/2=0 (1 в остатке)
Теперь записываем все остатки подряд снизу вверх и получаем запись десятичного числа 365 в двоичной системе счисления 101101101
<em>// PascalABC.NET 3.2, сборка 1367 от 20.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var t:integer;
var k:=0;
repeat
Read(t);
if t.ToString.Where(c->c='5').Count=2 then k+=1
until t=0;
Writeln('Количество чисел с двумя пятерками равно ',k)
end.