Образовать и напечатать вектор a, элементами которого являются количества четных элементов строк матрицы C - Pascal

Узнай цену своей работы

Формулировка задачи:

Дана матрица C: 5x7 . Образовать и напечатать вектор a , элементами которого являются количества четных элементов строк матрицы C. Найти номер максимального элемента вектора a
Дано матрицю C:5x7. Утворити і надрукувати вектор a, елементами якого є кількості парних елементів рядків матриці C. Знайти номер максимального елемента вектора a.

Решение задачи: «Образовать и напечатать вектор a, элементами которого являются количества четных элементов строк матрицы C»

textual
Листинг программы
uses crt;
const n=7;
      m=5;
var a:array[1..m,1..n] of integer;
    b:array[1..m] of integer;
    i,j,k,max:integer;
begin
 writeln('ГЊГ*òðèöГ* :');
 for i:=1 to m do
  begin
   for j:=1 to n do
    begin
     a[i,j]:=-10+random(20);
     write(a[i,j]:4);
    end;
   writeln;
  end;
 for i:=1 to m do
  begin
  k:=0;
   for j:=1 to n do
    begin
     if a[i,j] mod 2=0 then
      inc(k);
     b[i]:=k;
    end;
  end;
writeln('ГЊГ*Г±Г±ГЁГў :');
 max:=b[1];
 for i:=1 to m do
  begin
   if b[i]>max then
    max:=b[i];
   write(b[i]:4);
  end;
writeln;
 writeln('ГЊГ*ГЄГ±ГЁГ¬Г*ëüГ*îå = ',max);
end.

Объяснение кода листинга программы

  1. Объявляются константы n и m со значениями 7 и 5 соответственно.
  2. Объявляются переменные a (двумерный массив целых чисел размерности m на n), b (одномерный массив целых чисел размерности m), i, j, k, max - все переменные целочисленного типа.
  3. Выводится сообщение ГЊГ*òðèöГ* : (вероятно, Матрица :).
  4. Запускается цикл для заполнения матрицы a случайными числами от -10 до 9 и их выводом.
  5. Запускается цикл для подсчёта четных элементов в каждой строке матрицы и записи результатов в массив b.
  6. Выводится сообщение ГЊГ*Г±Г±ГЁГў : (вероятно, Результат :).
  7. Определяется максимальное значение в массиве b и выводится массив b с отступами.
  8. Выводится сообщение ГЊГ*ГЄГ±ГЁГ¬Г*ëüГ*îå = (вероятно, Максимальное значение =) и выводится найденное максимальное значение.

Оцени полезность:

11   голосов , оценка 4.091 из 5
Похожие ответы