Пусть шесть (6) населенных пунктов обозначены номерами от 1 до 6 (величина К) а 5 кандидатов-номерами от 1 до 5 (величина Н). Количество голосов набранных кандидатами в каждом населенном пункте определяется формулой АКН = рандо...
Пусть шесть (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;
Begin
clrscr;
randomize;
for i:=1 to n do
begin
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]
Не нашли ответ?
Похожие вопросы