Решить на языке pascal. дан массив ll, содержащий 12 элементов вещественного типа – положительных, отрицательных и равных нулю. сосчитать количество ненулевых элементов массива и сформировать из них новый массив. найти модуль сумы элементов нового массива. индексацию элементов заданного массива начать с 0. для перебора элементов массива использовать оператор while.

191

384

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

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

Vika3499

Информатика

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

var i, e: integer; s : real; ll : array [0..11] of real; ll2 : array of real; begin

for i: = 0 to 11 do ll[i] : = random(101) - 100;

i : = 0; e : = 0; while i < = 11 do begin if ll[i] < > 0 then begin inc(e); setlength(ll2, e); ll2[e-1] : = ll[i]; s : = s + ll[i]; end; inc(i); end; writeln('кол-во ненулевых элементов = ', e); if s < 0 then s : = s * -1; writeln('mодуль сумы элементов нового массива = ', s: 0: 3, #10#13); for i : = 0 to e - 1 do write(ll2[i]: 0: 1, ' '); readln; end.