Program n1;
var a: array[1..12] of integer;
i,sum: integer;
begin
randomize;
sum:=0;
writeln('исходный массив:');
for i:=1 to 12 do
begin
a[i]:=random(15);
write(a[i],' ');
if i mod 2=0 then sum:=sum+a[i];
end;
writeln;
writeln('сумма: ',sum);
end.
Я так понимаю это паскаль, и это связано с тем, что где-то лишнее ; или наоборот, не хватает ;
Ответ:
1001101001 = 1*2^9+0+0+1*2^6+1*2^5+0+1*2^3+0+0+1*2^0 = 512+0+0+64+32+0+8+0+0+1 = 512+64+32+8+1 = 617
Объяснение:
1)Мульти: 16=2 в 4 ст. 1 символ=4 бит
120*4=480 бит
Пульти: 32=2 в 5 ст. 1 символ=5 бит
96*5=480 бит
Сообщения равны.
2) 130*I=650
i=5 бит вес символа
var
A:array[1..100] of integer;
n, i, Summ:integer;
begin
randomize;
write('n = ');
readln(n);
Summ := 0;
for i := 1 to n do
begin
A[i] := random(201) - 100;
write(A[i], ' ');
if A[i] > 0 then
Summ := Summ + A[i];
end;
writeln;
if Summ <> 0 then
writeln('Summ = ', Summ)
else
writeln('Нет ни одного положительного элемента');
readln;
end.
//вторая программа
var
A:array[1..100] of integer;
B:array[1..100] of real;
n, i, Summ:integer;
begin
randomize;
write('n = ');
readln(n);
Summ := 0;
for i := 1 to n do
begin
A[i] := random(201) - 100;
write(A[i], ' ');
if A[i] mod 2 = 0 then
B[i] := A[i] / 2
else
B[i] := A[i];
end;
writeln;
writeln;
writeln('Result:');
for i := 1 to n do
write(B[i], ' ');
readln;
end.