Вопрос по информатике:
Дан массив А содержащий 20 элементов целого типа положительных и отрицательных. Сформировать массивы В и С, содержащие соответственно положительные и отрицательные элементы массива А. Найти сумму элементов массивов В и С и количество содержащихся в них элементов.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 22.07.2017 21:04
- Информатика
- remove_red_eye 2059
- thumb_up 13
Ответы и объяснения 1
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.
- 23.07.2017 14:11
- thumb_up 17
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.