Question

Пусть шесть (6) населенных пунктов обозначены номерами от 1 до 6 (величина К) а 5 кандидатов-номерами от 1 до 5 (величина Н). Количество голосов набранных кандидатами в каждом населенном пункте определяется формулой АКН = рандом (10 * 3 +50). вывести на экран таблицу результатов голосования, где в строках е данные из населенных пунктов, а в столбцах данные относительно конкурентных кандидатов. Определить и вывести кто из кандидатов набрал максимальное, а кто минимальное количество голосов в четвертом (4) населенном пункте я нашол даные макс. а мин. никак не могу uses crt;const n=5; k=6;var a:array[1..10,1..10] of integer;    b:array[1..10] of integer;    i,j,max:integer;Beginclrscr;randomize;for i:=1 to n dobegin   for j:=1 to k do   begin    a[i,j]:=random(10*3+50);    write(a[i,j]:5);   end;writeln;end;max:=0; for i:=1 to n do begin   if a[i,4]>max then max:=a[i,4];   b[i]:=max; end;writeln;writeln(b[i]:4);readln;end.

Answer 1

max:=0;
 for i:=1 to n do
 begin
   if a[i,4]>max then max:=a[i,4];
   b[i]:=max;
 end;
writeln;
writeln(b[i]:4);

 

честно говоря, не понимаю, зачем здесь используется массив b. можно сделать так

max:=0;
 for i:=1 to n do
   if a[i,4]>max then max:=a[i,4];
writeln;
writeln(max);

 

а для минимума все почти так же

const

  inf = 32767;

min:=inf;
 for i:=1 to n do
   if a[i,4]<min then min:=a[i,4];
writeln;
writeln(min);

Answer 2

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

pascalCopy code
uses crt;

const
  n = 6; // Количество населенных пунктов
  k = 5; // Количество кандидатов

var
  a: array[1..n, 1..k] of integer; // Массив для результатов голосования
  maxVotes, minVotes: integer; // Максимальное и минимальное количество голосов
  i, j: integer;

begin
  clrscr;
  randomize;

  // Заполнение массива результатами голосования
  for i := 1 to n do
  begin
    for j := 1 to k do
    begin
      a[i, j] := random(10 * 3 + 50);
      write(a[i, j]:5);
    end;
    writeln;
  end;

  // Определение максимального и минимального количества голосов в четвертом населенном пункте
  maxVotes := a[4, 1];
  minVotes := a[4, 1];
  for i := 2 to k do
  begin
    if a[4, i] > maxVotes then
      maxVotes := a[4, i];
    if a[4, i] < minVotes then
      minVotes := a[4, i];
  end;

  // Вывод результатов
  writeln('Максимальное количество голосов в 4-м населенном пункте: ', maxVotes);
  writeln('Минимальное количество голосов в 4-м населенном пункте: ', minVotes);

  readln;
end.

Этот код выводит таблицу результатов голосования и определяет кандидата с максимальным и минимальным количеством голосов в четвертом населенном пункте.