randomize; for i:=1 to 10 do begin a[i]:= random(200) -100; write(a[i]:5); end;
writeln;
for i:=1 to 10 do if a[i]>=0 then a[i]:=a[i]/2 else a[i]:=i; write(a[i]:5);
end.
2) var a:array[1..1000] of real; s1,s2:real; i,n:integer; begin write('Введите кол-во элементов: '); readln(n); writeln('Введите элементы массивы: '); for i:=1 to n do read(a[i]);
s1:=0; s2:=0; for i:=1 to n do if odd(i) then s1:=s1+a[i] else s2:=s2+a[i];
writeln('Сумма элементов с четными номерами: ',s2); writeln('Сумма элементов с нечетными номерами: ',s1); end.
// PascalABC.NET 3.0, сборка 1150 от 22.01.2016 begin var a:=ArrRandom(10,50,100); a.Println(', '); var s:=0; for var i:=0 to 9 do s+=a[i]; Writeln('s=',s) end.
// PascalABC.NET 3.0, сборка 1150 от 22.01.2016 var a:array[1..10] of integer; i,s:integer; begin Randomize; s:=0; for i:=1 to 10 do begin a[i]:=Random(51)+50; Write(a[i],' '); s:=s+a[i] end; Writeln; Writeln('s=',s) end.
Каждый символ кодируется двумя байтами.
i = 2 байта
x = 47
I - информационный объём.
I = x * i
I = 47 * 2 = 94 Байта
ответ: 94 Байта