Вопрос по информатике:
Дан массив А(m), m <= 15. Заменить нулем каждый отрицательный элемент массива и вычислить сумму S и количество К оставшихся положительных элементов. Вывести на печать исходный и преобразованный массивы,а так же величины S , K
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 02.12.2015 07:13
- Информатика
- remove_red_eye 9437
- thumb_up 28
Ответы и объяснения 1
Const n=15;
var a:array[1..n] of integer;
i,s,k:integer;
begin
Randomize;
for i:=1 to n do
begin
a[i]:=random(21)-10;
write(a[i]:4);
end;
writeln;
s:=0;k:=0;
for i:=1 to n do
if a[i]<0 then a[i]:=0
else if a[i]>0 then begin s:=s+a[i];k:=k+1;end;
for i:=1 to n do write(a[i]:4);
writeln;
writeln('s=',s,' k=',k);
end.
Пример:
-8 -3 10 0 3 1 -10 8 4 -3 9 0 -10 -2 1
0 0 10 0 3 1 0 8 4 0 9 0 0 0 1
s=36 k=7
- 04.12.2015 00:48
- thumb_up 36
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.