Пусть шесть (6) населенных пунктов обозначены номерами от 1 до 6 (величина К) а 5...

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]ofinteger;
b:array[1..10]ofinteger;
i,j,max:integer;
Begin
clrscr;
randomize;
for i:=1to n do
begin
for j:=1to k do
begin
a[i,j]:=random(10*3+50);
write(a[i,j]:5);
end;
writeln;
end;
max:=0;
for i:=1to 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]writeln;
writeln(min);