Подсчитать число и сумму положительных, число и произведение отрицательных элементов заданного массива a размерностью 100

170

207

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

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

islamovkasymzh1

Информатика

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

Const n = 100; var i, neg_k, pos_k, pos_s, neg_p: integer; a: array[1..n] of integer; begin for i : = 1 to n do begin a[i] : = random(10 + 50) - 10; write(a[i], ' '); end; writeln(); neg_p : = 1; for i : = 1 to n do if a[i] > 0 then begin pos_k : = pos_k + 1; pos_s : = pos_s + a[i]; end else if a[i] < 0 then begin neg_k : = neg_k + 1; neg_p : = neg_p * a[i]; end; writeln('positive: ', pos_k, ' ', pos_s); writeln('negative: ', neg_k, ' ', neg_p); end.

zarruxu

Информатика

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

Вытащить нитки (остатки) из места, где пуговица была оторвана, затем посмотреть нет ли дырок на том месте, если есть, то зашить, потом вынуть нитки из пуговицы, если пуговица цела, то пришить, если нет, то сменить пуговицу, так же пришить