Написать программу и составить блоксхему ! определить среди 3 введенных чисел сумму отрицательных и положительных.если больше сумма положительных,то найти минимум из этих 3 чисел , а иначе найти максимум.

140

247

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

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

Диана25122002

Информатика

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

заморила твоя однако program asd; uses crt; var a: array [1..5] of integer; min,max,min2,o,p: real; i,n: integer; procedure max1; begin for i: =1 to 5 do if a[i]> 0 then if min< a[i] then min: =a[i]; writeln('min: ',min); end; procedure min1; begin for i: =1 to 5 do if a[i]< 0 then if min> a[i] then min: =a[i]; writeln('min: ',min); end; begin clrscr; for i: =1 to 5 do begin a[i]: =random(9)-5; write(' ',a[i]); end; writeln; //otrizanie for i: =1 to 5 do if a[i]< 0 then o: =o+a[i]; writeln('summa otrizatelnyx elementov: ',o); //polowitelnye for i: =1 to 5 do if a[i]> 0 then p: =p+a[i]; writeln('summa polowitelnyx elementov: ',p); if p< o then max1 else min1; end.

Bdbdbbfbrhr

Информатика

4,6(91 оценок)

Uses crt; var sump,sumn,i: integer; a: array[1..3] of integer; begin for i: =1 to 3 do begin read(a[i]); if a[i]> =0 then sump: =sump+a[i] else sumn: =sumn+a[i]; end; if sump> =sumn then writeln(min(min(a[1],a[2]),min(a[2], else writeln(max(max(a[1],a[2]),max(a[2],; end.