Const
MAX = 100;
var
A: array [1 .. MAX, 1 .. MAX] of integer;
i, j, N, M: byte;
min: integer;
begin
randomize;
write(' Введите N(макс. ', MAX, ') = ');
readln(N);
write(' Введите M(макс. ', MAX, ') = ');
readln(M);
writeln(' Исходная матрица: ');
for i := 1 to N do
begin
for j := 1 to M do
begin
A[i, j] := random(100) - 50;
write(A[i, j]:6);
end;
writeln;
end;
for i := 1 to N do
begin
min := A[i, 1];
if i mod 2 = 0 then
begin
for j := 1 to M do
if A[i, j] < min then
min := A[i, j];
writeln(' Минимальный элемент ', i, ' строки = ', min);
end;
end;
end.
var c: array [1..20] of integer;
i,s1,s2: integer;
begin
s1:=0;
s2:=0;
for i:=1 to 20 do begin
write('Ввод значения для c[',i,'] - ');
readln(c[i]);
if i<=10 then s1:=s1+c[i] else s2:=s2+c[i];
end;
if s1>s2 then writeln('Сумма первых 10 элементов больше, чем последние 10 элементов')
else if s2>s1 then writeln('Сумма последних 10 элементов больше, чем первые 10 элементов')
else if s1=s2 then writeln('Первые 10 элементов равны последним 10 элементам');
end.
Рассмотрен, также, вариант "если они равны" (можете удалить последнее условие, если не нужно)
1. 415(10)=110011111(2) = 637 (8) =19F(16)
2. 10011(2) =19(10) 314(8)=204(10) A8(16)=168(10)
3. a) 23(16)=100011(2)
б) АС(16)=254(8)
в) 10111101(2)=275(8)
г) 101011101(2)=ВD(16)
д) 101010(8)=1000001000001000(2)
е)23(10)=17(16)