<span>8 Мбайт = 2^3*2^10 Кбайт = </span>2^13 Кбайт = 2^13*2^10 байт = <span>2^23 байт = </span>2^23*2^3 бит = <span>2^26 бит</span>
Const n=10;
var a:array[1..n] of integer;
i,s1,s2:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(51);
write(a[i]:4);
end;
writeln;
s1:=0; s2:=0;
for i:=1 to n do
if i mod 2 = 1 then s1:=s1+a[i] else s2:=s2+a[i];
writeln('s1 = ',s1,' s2 = ',s2);
end.
Пример:
Массив A:
21 46 43 5 40 32 26 34 29 48
s1 = 159 s2 = 165
Подробнее - на Znanija.com -
znanija.com/task/22500151#readmore
Синий треугольник, оранжевый круг, жёлтый квадрат, (голубой), жёлтый квадрат, синий треугольник, , зелёный треугольник
<em>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('Количество строк/столбцов в матрице:');
Writeln('Введите элементы матрицы построчно');
var a:=ReadMatrInteger(n,n);
Writeln('Исходная матрица'); a.Println(4);
Writeln(4*a.ColCount*'-');
var s:=a.ElementsWithIndexes;
var imin:=s.MinBy(t->t[0])[1];
var imax:=s.MaxBy(t->t[0])[1];
if imin<>imax then a.SwapRows(imin,imax);
Writeln('Матрица-результат'); a.Println(4);
end.
<u>Пример</u>
Количество строк/столбцов в матрице: 5
Введите элементы матрицы построчно
51 -74 -22 -83 -89 87 66 -61 -16 -32 -82 -17 -7 -26 -10 91 5 45 0 25 -47 -44 24 -19 75
Исходная матрица
51 -74 -22 -83 -89
87 66 -61 -16 -32
-82 -17 -7 -26 -10
91 5 45 0 25
-47 -44 24 -19 75
--------------------
Матрица-результат
91 5 45 0 25
87 66 -61 -16 -32
-82 -17 -7 -26 -10
51 -74 -22 -83 -89
-47 -44 24 -19 75
1. A⋀¬B∨A⋀¬C≡A⋀(¬B∨¬C)≡A⋀¬(B⋀C) -- (3 лог. эл.)
2.(A↔B)⋀(B→C)≡(¬A⋀¬B∨A⋀B)⋀(¬B∨C)≡(¬A⋀¬B⋀¬B)∨(¬A⋀¬B⋀C)∨(A⋀B⋀¬B)∨(A⋀B⋀C)≡(¬A⋀¬B)∨(¬A⋀¬B⋀C)∨(A⋀B⋀¬B)∨(A⋀B⋀C)≡(¬A⋀¬B)∨(A⋀B⋀¬B)∨(A⋀B⋀C)≡(¬A⋀¬B)∨0∨(A⋀B⋀C)≡(¬A⋀¬B)∨(A⋀B⋀C)≡¬(A∨B)∨(A⋀B⋀C) -- (5 лог. эл.)
Схемы в прикрепленных.