Рупор? Знак? Сигнальный ракет?
277(8) = 2*8^2+7*8^1+7*8^0=128+56+7=191(10)
191(10)-27(10)=164(10)
164(10)=10100100(2)=A4(16)
Если масив заполнить нужно рандомно:
program wk;
var i,s:integer;mas:array [1..10] of integer;
begin
s:=0;
for i:=1 to 10 do
begin
mas[i]:=random(21)-20;
if mas[i] mod 2=0 then s:=s+mas[i];
end;
writeln('S=',s)
end.
Если масив заполняется с клавиатуры:
program wk;
var i,s:integer;mas:array [1..10] of integer;
begin
s:=0;
for i:=1 to 10 do
begin
readln(mas[i]);
if (mas[i] mod 2)=0 then s:=s+mas[i];
end;
writeln('S=',s)
end.
1. Начало алгоритма
2. Ввод a, b и c
3. Формула sum = a + b + c
4. Вывод "a + b + c = " + sum
5. Формула prs = a * b * c
6. Вывод "a * b * c = " + prs
7. Формула sra = (a + b + c) / 3
8. Вывод "(a + b + c) / 3 = " + sra
9. Конец алгоритма