Допоможіть ,будь ласка!!!!
вивести всі числа матриці кратні першому елементу ( паскаль)
Ответы
Ответ:
Вот пример кода на Pascal, который выводит все числа матрицы, кратные её первому элементу:
const
N = 3; // размерность матрицы
var
a: array[1..N, 1..N] of integer; // объявляем матрицу
i, j, k: integer;
begin
randomize; // инициализируем генератор случайных чисел
// заполняем матрицу случайными числами
for i := 1 to N do
for j := 1 to N do
a[i, j] := random(10);
// выводим матрицу на экран
writeln('Matrix:');
for i := 1 to N do
begin
for j := 1 to N do
write(a[i, j]:3);
writeln;
end;
// ищем числа, кратные первому элементу
writeln('Multiples of first element:');
for i := 1 to N do
for j := 1 to N do
if (a[i, j] mod a[1, 1] = 0) and (a[i, j] <> a[1, 1]) then
begin
write(a[i, j]:3);
k := k + 1;
end;
if k = 0 then writeln('None')
else writeln;
end.
Здесь мы сначала генерируем матрицу случайных чисел, затем выводим её на экран. Затем мы проходим по всем элементам матрицы и проверяем, кратны ли они первому элементу, кроме самого первого элемента. Если число кратно первому элементу, мы выводим его на экран. Если таких чисел нет, мы выводим сообщение "None".