Получены результаты выборов в городскую думу: по каждому из к округов известно число голосовавших за представителей каждой из м партий, а также известно число не участвовавших в голосовании. выборы в округе считается состоявшимся, если в голосовании приянло участие не менее р процентов избирателей. определить, в каких округах был высший процент голосовавших избирателей и номера партий, получивших наибольшее число голосов в округах, где выборы считается состоявшимися. исходная информация вводится с клавиатуры. (qbasic)

Input "kolichestvo okrugov. k="; k input "kolichestvo partiy. m="; m input "porog yavki izbirateley (v %). p="; p dim g(k, m + 1) dim pr(k, 1) for i = 1 to k     cls     print "okrug   "; i     g(i, 0) = i     for j = 1 to m         print "golosov za partiyou "; j;         input g(i, j)         pr(i, 1) = pr(i, 1) + g(i, j)     next j     input "ne golosovalo "; g(i, m + 1)     pr(i, 0) = i     pr(i, 1) = 100 * pr(i, 1) / (pr(i, 1) + g(i, m + 1)) next i cls for i = 1 to k     for j = 1 to k         if pr(i, 1) > pr(j, 1) then             x = pr(i, 1)             y = pr(i, 0)             pr(i, 1) = pr(j, 1)             pr(i, 0) = pr(j, 0)             pr(j, 1) = x             pr(j, 0) = y         end if     next j next i print "itogi po golosovavshim" print "okrug #", "golosovalo (%)", "pobedila partia #" for i = 1 to k     print pr(i, 0), pr(i, 1),     if pr(i, 1) > = p then         print "yes. sostojlis",         max = 0         for j = 1 to m             if g(pr(i, 0), j) > max then                 max = g(pr(i, 0), j)                 x = j             end if         next j         print x     else print "no. ne sostojlis"     end if next i

Код: 1) program mas; var i,ne,ch,n: integer; a: array [1..1000] of integer; begin read(n); randomize; for i: =1 to n do begin a[i]: =random(80)+21; write(a[i],' '); //распечатка массива, увидешь правильно ли программа выполняет функци                           end; for i: =1 to n do begin if a[i] mod 2=0 then ch: =ch+1 else ne: =ne+1; end; writeln; writeln('нечетные=',ne); writeln('четные=',ch); end. 2) const n = 10; var a: array [ 1 .. n ] of integer; i, znachenie, count: integer; sred_arifm, sum: real; begin for i: =1 to n do begin write('a[,'i,']='); readln(a[i]); end; write('введите значение: '); readln(znachenie); sum: =0; count: =0; for i: =1 to n do if a[i] > znachenie then begin inc(count); sum: =sum+a[i]; end; sred_arifm: =sum/count; write('среднее арифметическое =',sred_arifm: 3: 2); end.

Program ant; const n=6; m=6; var i,j: integer; var a: array [1..n,1..m] of real; begin writeln('введите матрицу'); for i: =1 to n do for j: =1 to m do begin writeln('a[',i,',',j,']'); readln(a[i,j]); end; writeln('исходная матрица'); for i: =1 to n do for j: =1 to m do begin writeln(a[i,j]); writeln; end; u: =0; for i: =1 to n do begin for j: =1 to m do  if i+j=7 then u: =u+ln(a[i,j]); end; writeln('среднее ',u); max: =[1,1]; for i: =1 to n do begin for j: =1 to m do if (a[i,j]> max) then [i,j]: =max; end; writeln('максимальное значение',max); u: =max; writeln('полученная матрица'); for i: =1 to n do for j: =1 to m do begin writeln(a[i,j]); writeln; end; end.