Регистрация
and290620041
29.11.2021 19:33
Информатика
Есть ответ 👍

Определите значение целочисленной переменной b после выполнения следующего фрагмента блок схемы​

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

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

lavrovaa0
lavrovaa0
4,4(38 оценок)

торокан

Объяснение:

Vika3499
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.

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