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

gallagher44 gallagher44    2   30.03.2019 02:30    4

Ответы
СыроКок1 СыроКок1  27.05.2020 15:21

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);

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика