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.
#1
var
mas:array[1..10] of integer;
i,sum:integer;
begin
sum:=0;
for i:=1 to 10 do
begin
read(mas[i]);
sum:=sum+mas[i];
end;
writeln(sum/10);
end.
#2
var
mas:array[1..15] of integer;
i,sum:integer;
begin
sum:=0;
for i:=1 to 15 do
begin
read(mas[i]);
sum:=sum+mas[i];
end;
writeln(sum);
end.
#3
var
mas:array[1..10] of integer;
i:integer;
begin
for i:=1 to 10 do
read(mas[i]);
for i:=1 to 10 do
begin
mas[i]:=mas[i]+10;
write(mas[i],' ');
end;
end.
45 -1 = 44
44 / 2 = 22
22 / 2 = 11
11 - 1 = 10
10 / 2 = 5
Итого: 2 1 1 2 1
N=2^i
256=2^8
i=8 (один символ кодируется восемью битами или одним байтом)
I=ki=256*1=256 байт
Ответ:
Введи логин и пароль администратора.
Повышения прав требует