Вопрос по информатике:
СРОЧНО!!!
Решить задачу на Паскале на компьютере:
Найти сумму нечетных положительных чисел из N введенных чисел.
ЗАРАНЕЕ СПАСИБО!!!
(через for)
program z1;
var i,a:real; s,n: integer;
writeln('введите кол-во чисел');
readln(n);s:=0;
for i:=1 to n do
begin;
readln(a);
if a mod 2 <>0 and a>0
then
begin s:=s+a
end;
end;
writeln (s);
end.
Начала решать, не получается(((
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 27.10.2016 12:42
- Информатика
- remove_red_eye 19631
- thumb_up 9
Ответы и объяснения 1
var a,s,mn:real; n,i:integer; begin clrscr; repeat write('Сколько чисел ввести n>0 n='); readln(n); until n>0; writeln('Введите ',n,' чисел:'); s:=0; for i:=1 to n do begin write('a='); readln(a); if i=1 then mn:=a else if odd(i)and(a0) then s:=s+a; end; writeln('Сумма положительных с четными индексами=',s:0:2); writeln('Минимальный с нечетным индексом=',mn:0:2); readln end.
- 28.10.2016 14:28
- thumb_up 38
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.