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