Пусть шесть (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.
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);