Question

Паскаль. Дана квадратная матрица(случайные числа от -10 до 10) организовать вывод в виде матрицы.Подсчитать количество чётных и нечётных элементов главной диагонали.

Answer 1

Ну блин
for i:=1 to n do 
  begin
     for j:=1 to n do write(a[i,j],' ');
     writeln;
end;
  writeln; 
 { я взял n это сколько строк и сколько столбиков, разберешься }
{ теперь выведем отрицательные числа }
for i:=1 to n do 
  for j:=1 to n do 
    if a[i,j]<0 then writeln(a[i,j]);
все :)

Answer 2

Я могу помочь вам с программированием на языке Паскаль. Ваш вопрос о том, как вывести квадратную матрицу и подсчитать количество чётных и нечётных элементов на главной диагонали. Я попробую сгенерировать код для этой задачи. Вот один из возможных вариантов:

program matrix;
const
  N = 5; // размер матрицы
  MIN = -10; // минимальное значение элемента
  MAX = 10; // максимальное значение элемента
var
  A: array [1..N, 1..N] of integer; // матрица
  i, j: integer; // индексы
  even, odd: integer; // количество чётных и нечётных элементов
begin
  randomize; // инициализация генератора случайных чисел
  // заполнение матрицы случайными числами от MIN до MAX
  for i := 1 to N do
    for j := 1 to N do
      A[i, j] := random(MAX - MIN + 1) + MIN;
  // вывод матрицы на экран
  writeln('Матрица:');
  for i := 1 to N do
  begin
    for j := 1 to N do
      write(A[i, j]:4); // выравнивание по 4 символа
    writeln; // перевод строки
  end;
  // подсчёт количества чётных и нечётных элементов на главной диагонали
  even := 0;
  odd := 0;
  for i := 1 to N do
  begin
    if A[i, i] mod 2 = 0 then // если элемент чётный
      even := even + 1 // увеличить счётчик чётных
    else // иначе
      odd := odd + 1; // увеличить счётчик нечётных
  end;
  // вывод результатов на экран
  writeln('Количество чётных элементов на главной диагонали: ', even);
  writeln('Количество нечётных элементов на главной диагонали: ', odd);
end.

Если вам нужна дополнительная информация о языке Паскаль, вы можете посмотреть эти ресурсы: [Pascal (programming language) - Wikipedia](https://en.wikipedia.org/wiki/Pascal_%28programming_language%29), [Pascal Tutorial - Online Courses and eBooks Library](https://www.tutorialspoint.com/pascal/index.htm), [Pascal (programming language) - CodeDocs](https://codedocs.org/what-is/pascal-programming-language), [Pascal - Overview - Online Tutorials Library](https://www.tutorialspoint.com/pascal/pascal_overview.htm). Надеюсь, это было полезно. Спасибо за обращение к Bing.