Склавиатуры вводится l целых чисел. подсчитать кол-во печатных чисел и произведение положительных

177

479

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

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

is835172Alexandr

Информатика

4,6(12 оценок)

Program n1; var i,a,kn,pp,n: integer; begin write('введите кол-во чисел: '); readln(n); pp: =1; kn: =0; for i: =1 to n do begin write('введите ',i,' число: '); readln(a); if a mod 2< > 0 then kn: =kn+1; if a> 0 then pp: =pp*a; end; writeln('кол-во неч. чисел: ',kn); writeln('произв. пол чисел: ',pp); end.

никита42728

Информатика

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

var

a: array [1..5,1..10] of integer; i,j: integer; beginfor i: =1 to 3 dobeginfor j: =1 to 10 do

a[i,j]: =random(50)-100; end; for j: =1 to 10 doa[4,j]: =sqr(a[2,j])-4*a[1,j]*a[3,j]; for j: =1 to 10 dowriteln('a=',a[1,j],' b=',a[2,j],' c=',a[3,j],' d=',a[4,j]); readln; end.

p.s не понял зачем там массив 5х10 если нужно найти дискриминант?