Сделайте блок-схему по среди 3 введенных чисел посчитать количество положительных

140

244

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

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

Shark238

Информатика

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

Var a,s,k: integer; p : longint; begin k : = 0; s : = 0; p : = 1; repeat write('введите число: '); readln(a); if a < 0 then begin inc(k); p : = p * a end; if a > 0 then s : = s + a until a = 0; writeln('сумма положительных: ', s); if k = 0 then writeln('отрицательных чисел нет') else writeln('произведение отрицательных: ', p); readlnend.

РУСЛАН113228

Информатика

4,8(89 оценок)

Program yolo; uses crt; const n=16; var mass: array [1..n] of integer; back: integer; i: byte; begin randomize; clrscr; writeln('исходная матрица [-15; 15]: '); for i: =1 to n do begin mass[i]: =random(31)-15; write(mass[i]: 4); end; writeln; for i: =1 to n do if i mod 2< > 0 then begin back: =mass[i]; mass[i]: =mass[i+1]; mass[i+1]: =back; end; writeln('отформотированный матрица: '); for i: =1 to n do write(mass[i]: 4); readln; end.