В одном байте 8 бит, в одном килобайте 1024 байт, в одном мегабайте 1024 килобайт, то есть 1 мегабайт это 8*1024*1024 бит
const n=10;
var a:array [1..n] of real;
i,mi:integer;
s,m,p:real;
begin
write('Массив: ');
for i:=1 to n do
begin
a[i]:=random*20-10;
write(a[i]:0:3,' ');
if a[i]>0 then s:=s+2*a[i];
end;
writeln;
m:=a[1];
mi:=1;
for i:=1 to n do if a[i]>m then
begin
m:=a[i];
mi:=i
end;
p:=1;
for i:=mi to n do if a[i]<0 then p:=p*2*a[i];
writeln ('Удвоенная сумма всех положительных элементов массива: ',s:0:3);
if p=1 then writeln ('Отрицательных чисел после максимального элемента нет')
else writeln ('Удвоенное произведение всех отрицательных элементов массива, расположенных после максимального элемента: ',p:0:3);
end.
<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('Количество строк в матрице:');
var m:=ReadInteger('Количество столбцов в матрице:');
Writeln('Вводите элементы матрицы построчно');
var a:=new real[n,m];
var b:=new real[n];
for var i:=0 to n-1 do begin
b[i]:=0;
for var j:=0 to m-1 do begin
Read(a[i,j]);
b[i]+=Sqr(a[i,j])
end;
b[i]:=Sqrt(b[i])
end;
Writeln('Сформированный вектор');
b.Println;
end.
<u>Пример</u>
Количество строк в матрице: 4
Количество столбцов в матрице: 3
Вводите элементы матрицы построчно
3.4 5.1 8
-1 0 1
-5.34 1.777 5
3 4 5
Сформированный вектор
10.0781942827076 1.4142135623731 7.52816903370268 7.07106781186548
Что это за документ он без вирусов а то как я решу лучше сфоткай
Информацию, достаточную для понимания ситуации и принятия решения, называют полной
