В каком
из двух данных массивов р (n) q(n)
больше элементов, равных 1?

1
да
щас напишу
спасибки большое.
а хотя нет, мне надо отойти. Извини, если не будет ответов напишу, если не поздно будет
ага

Ответы и объяснения

  • Sky09
  • профессор
2013-12-07T22:45:19+04:00
Uses crt;
const M=5;
var p,q:array [1..M] of integer;
    n,k,l:integer;
begin
     for n:=1 to M do
     begin
         write('p[',n,']:');readln(p[n]);
         if p[n]=1 then inc(k);
         write('q[',n,']:');readln(q[n]);
         if q[n]=1 then inc(l);
     end;
     if k>l then writeln('p[n]');
     if k<l then writeln('q[n]');
     if k=l then writeln('одинаково');
end.