Регистрация
Nemosing
11.03.2022 10:05
Информатика
Есть ответ 👍

Написать программу на языке паскаль: на место положительных элементов массива (a1, ) записать единицы и сосчитать их количество. для отрицательных элементов массива определить их сумму. исходные данные: n=12 a= [-8, 10, 11, -30, 21, 22, -5, 10, -10, -12, 1, 5]

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

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

vastgfy
vastgfy
4,6(18 оценок)
Program mas1; var a: array[1..100] of integer; k,sum,n,i: integer; begin  randomize; k: =0; sum: =0; writeln('введите размерность массива',n);   readln(n); for i: =1 to n do read(a[i]); for i: =1 to n do begin if a[i]> 0 then begin  a[i]: =1; k: =k+1; end; write(' ',a[i]); if a[i]< 0 then begin sum: =sum+a[i]; end; end; writeln(' sum=',sum,' k=',k); readln; end.
Andreichik228
Andreichik228
4,4(22 оценок)
40 000 000 кбайт =  38.14697265625гб 1гб=1024кбайт

Популярно: Информатика