Дан массив А содержащий 20 элементов целого типа положительных и отрицательных. Сформировать массивы В и С, содержащие соответственно положительные и отрицательные элементы массива А. Найти сумму элементов массивов В и С и коли...

Дан массив А содержащий 20 элементов целого типа положительных и отрицательных. Сформировать массивы В и С, содержащие соответственно положительные и отрицательные элементы массива А. Найти сумму элементов массивов В и С и количество содержащихся в них элементов.
Гость
Ответ(ы) на вопрос:
Гость
program zzz; var A,B,C: array[1..20] of integer; SB,SC: integer; i,kb,kc: byte; begin   kb:=0; //количесво элементов в массиве B   kc:=0; //количесво элементов в массиве C   SB:=0; //сумма элементов массива B   SC:=0; //сумма элементов массива C   For i:=1 to 20 do begin     writeln('введите ',i,'-й элемент массива');     readln (A[i]);     if A[i]>=0       then begin kb:=kb+1; B[kb]:=A[i]; SB:=SB+B[kb] end       else begin kc:=kc+1; C[kc]:=A[i]; SC:=SC+C[kc] end   end;   writeln(kb:4, sb:8, kc:4, sc:8); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы