Question

Найти сумму кратных 6 чисел в столбцах двумерного массива 10 на 10. Паскаль

Answer 1

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  Writeln('*** Исходный массив ***');
  var a:=MatrRandom(10,10,-99,99);
  a.Println(4); Writeln(40*'-');
  Writeln('Суммы по столбцам чисел, кратных 6');
  a.Cols.Select(col->col.Where(t->t mod 6=0).Sum).Println
end.

Answer 2

Const n=10;
var a:array[1..n,1..n] of integer;
s:array[1..n] of integer;
i,j:integer;
begin
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(30);
write(a[i,j]:4)
end;
writeln
end;
writeln;
for i:=1 to n do
for j:=1 to n do
if a[i,j] mod 6 = 0 then
s[j]:=s[j]+a[i,j];
for i:=1 to n do
if s[i]>0 then writeln('В столбце ',i:2,' сумма чисел, кратных 6, равна: ',s[i])
else writeln('В столбце ',i:2,' нет чисел, кратных 6');
readln
end.

Answer 3

Для нахождения суммы кратных 6 чисел в столбцах двумерного массива 10 на 10, сначала мы должны создать этот массив и заполнить его значениями. Затем пройтись по столбцам и вычислить сумму кратных 6 для каждого столбца. Вот как это можно сделать на языке Pascal:

pascalCopy code
program SumOfMultiplesOfSix;

const
  ROWS = 10;
  COLS = 10;

var
  arr: array[1..ROWS, 1..COLS] of Integer;
  i, j, sum, columnSum: Integer;

begin
  // Заполнение массива случайными значениями
  Randomize;
  for i := 1 to ROWS do
    for j := 1 to COLS do
      arr[i, j] := Random(100); // Здесь 100 - максимальное значение элемента

  // Вывод массива (для наглядности)
  for i := 1 to ROWS do
  begin
    for j := 1 to COLS do
      Write(arr[i, j]:4);
    Writeln;
  end;

  // Находим сумму кратных 6 чисел в столбцах
  for j := 1 to COLS do
  begin
    columnSum := 0;
    for i := 1 to ROWS do
    begin
      if arr[i, j] mod 6 = 0 then
        columnSum := columnSum + arr[i, j];
    end;
    WriteLn('Сумма кратных 6 чисел в столбце ', j, ': ', columnSum);
    sum := sum + columnSum;
  end;

  WriteLn('Общая сумма кратных 6 чисел в столбцах: ', sum);
end.

Программа создает двумерный массив 10 на 10, заполняет его случайными значениями и затем находит сумму кратных 6 чисел для каждого столбца, а также общую сумму кратных 6 чисел во всех столбцах.