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;
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;
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);