Регистрация
bill3334
29.12.2021 19:46
Информатика
Есть ответ 👍

Написать программу в паскале, которая формирует матрицу nXn в следующем виде:

252
284
Посмотреть ответы 1

Ответы на вопрос:

arehovaa1
arehovaa1
4,4(77 оценок)

const

  n = 15;

var

  a: array[1..n] of integer;

  i, x, pr: integer;

begin

  for i : = 1 to n do

  begin

      write('a[', i, '] = ');

      readln(a[i]);

  end;

  write('x = '); readln(x);

  writeln('исходный массив: ');

  pr : = 1;

  for i : = 1 to n do

  begin

      write(a[i], ' ');

      if a[i] mod x = 0 then

          pr : = pr * a[i];

  end;

  writeln;

  if pr = 1 then

      writeln('нет ни одного элемента кратного ', x)

  else

      writeln('произведение элементов кратных ', x, ' = ', pr);

  end.

     

     

 

Популярно: Информатика