Pascal
а) C[1]:= C[3] + C[5];
б) С[6]:= C[1] * C[2] * 2;
Узнаем в битах:
120 бит/с * 5*60= 36000,
Узнаем в байтах:
36000/8 = <span>4500 байт.
</span> Узнаем в Кбайтах:
4500 / 1024 = <span>4.39 Кб</span>
Массив вводится с клавиатуры через пробел 15 элементов
var
a:array[1..15]of integer;
i,j,buf:integer;
begin
for i:=1 to 15 do
read(a[i]);
for i:=1 to 14 do
for j:=i+1 to 15 do
if (a[i]<>0)and(a[j]<>0) then
if a[i]>a[j]then
begin
buf:=a[i];
a[i]:=a[j];
a[j]:=buf;
end;
writeln;
for i:=1 to 15 do
write(a[i]:4);
end.
Var
n,i,j,c:integer;
a:array[1..201] of integer;
begin
writeln('введите колөво элементов массива');
readln(n);
for i:=1 to n do a[i]:=-100+random(201);
writeln('Исходный массив');
for i:=1 to n do write(a[i]:5);
writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]<a[j] then
begin
c:=a[j];
a[j]:=a[i];
a[i]:=c;
end;
writeln('Отсортированный массив');
for i:=1 to n do
write(a[i]:5);
writeln;
end.