Для бинарного отношения r множество состоящие из двух чисел принадлежащих r хотя бы для одного y

104

186

Посмотреть ответы 1

Ответы на вопрос:

Top1lel

Информатика

4,7(52 оценок)

Var a : array [1..100] of integer; i,k,s,n: integer; begin readln(n); {важно, что n< 100} for i : = 1 to n do read(a[i]); k: =1; i: =0; s: =1; while (k< > 5) do begin; inc(i); if a[i]> 0 then begin; if k< > 3 then begin; s: =s*a[i]; inc(k); end else inc(k); end; end; write(s); end.