ДианкаСафонова

08.06.2023 20:00 •  Информатика

Нужно сделать алгоритм(блок-схему) для программы: const k = 14; var n: array[1..k] of integer; sum, i, kpol: integer; p: real; begin randomize; kpol : = 0; sum : = 0; p : = 1; for i : = 1 to k do begin n[i] : = random(23) - 6; write(n[i]: 4); if (i mod 2 = 0) and (n[i] > 0) then inc(kpol); if n[i] < 0 then sum : = sum + n[i]; if (i mod 3 = 0) and (n[i] > 0) then p : = p * n[i]; end; writeln; writeln('количество положительных элементов, стоящих на чётных местах: ', kpol); writeln('сумма элементов, имеющих отрицательные значения: ', sum); writeln('произведение положительных элементов массива, стоящих на местах, номера которых кратны трём: ', p); end.