Размещено 5 лет назад по предмету
Информатика
от bizoga
Пусть шесть (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.