Какими видами техподдержки могут воспользоваться юридические организации, у которых есть/нет технический персонал?

141

494

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

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

Alexsandra2195

Информатика

4,5(73 оценок)

Program qq; const n=10 var a: array[1..n] of integer; i,p: integer; begin for i: =1 to n do begin writeln('введите элементы масивa a[',i,']'= ); readln(a[i]); if a[i]> 0 then p: =p*a[i]; end; writeln('произведение эл-ов массива =' ,p); writeln('отрицательные эл-ты'); for i: =1 to n do if a[i]< 0 then write(a[i],' '); readln end.