Дан массив а(6). найти сумму и количество положительных элементов, расположенных между минимальным и максимальным элементами.

238

280

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

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

DianaDusha

Информатика

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

Program example; const a=30; nmin: =-100; // минимальный параметр nmax: =100; //максимальный var flag_max : integer; flag_min : integer; i. jmin,jmax : integer; //счетчики randomize; array max[a]; //заполняем случайніми числами диапозон -100 +100 for i=1 do a do begin max=: = random (nmin + 1) - 2 * nmax; end; //ищим максимальный элемент for i=1 do a do begin if max> max[i+1] then begin flag_max: =max jmax: =i; end; else begin flag_max: =max[i+1]; jmax: =i; end; end; //минимальный элемент for i=1 do a do begin if max> max[i+1] then begin flag_min: =max[i+1] jmin: =i; end; else begin flag_min: =max; jmin: =i; end; end; //подсчитываем сумму for i=jmin do jmax-1 do begin max: =max[i+1] end; //сумма чисел в рандовом массиве между макс и мин єлементом write('сума',max);

ermoloffalexan

Информатика

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

Program n1; var a,i,p,sum: integer; begin sum: =0; p: =1; repeat readln(a); if a> 0 then sum: =sum+a; if a< 0 then p: =p*a; until (a=0); writeln('произведение отрицательных: ',p); writeln('сумма положительных: ',sum); end.