Задание:
Пусть шесть (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.
Решение:
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] Знаете другой ответ?