var
a: array[,] of integer;
m, n, i, j, k, sum: integer;
begin
Write('Введите размер матрицы M и N: '); ReadLn(m, n);
SetLength(a, m, n);
randomize;
k := - 1;
WriteLn('Массив:');
for i := 0 to m - 1 do
begin
for j := 0 to n - 1 do
begin
a[i, j] := random(100);
Write(a[i, j]:4);
end;
WriteLn;
end;
for i := 0 to m - 1 do
if (a[i, 1] > a[i,0]) and (k = -1) then k := i;
if k = -1 then
begin
WriteLn('Нет строк, у которых второй элемент больше первого');
exit;
end;
for j := 0 to n - 1 do
if (a[k, j] mod 2 = 1) then sum := sum + a[k, j];
WriteLn('Сумма нечетных чисел строки, у которой второй элемент больше первого, равна ', sum);
end.
Объяснение:
echo "Исходный массив:";
$n = rand(1,13);
$S = 0;
for($i = 0; $i < $n; $i++)
{
$A[] = rand(-10,10);
$S+=$A[$i];
echo " $A[$i]";
}
echo "<br>Сумма элементов = $S<br>";
$k = -1;
for($i = $n-1; $i >= 0; $i--)
if ($A[$i] < 0) $k = $i;
if ($k == -1) echo "В массиве нет отрицательных элементов";
else echo "№ первого отрицательного: $k";
$Sr = $S/$n;
echo "<br>Sr = $Sr<br>";
$B = 0;
$C = 0;
for($i = 0; $i < $n; $i++)
{
if ($A[$i] < $Sr) $B = $i;
if ($A[$i] > $Sr) $C = $i;
}
echo "№ элемента, превышающего Sr: $C<br>";
echo "№ элемента, который меньше Sr: $B";
?>