В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Zurawlevigor
Zurawlevigor
22.06.2020 08:22 •  Информатика

Дан массив целых чисел из n элементов. найти сумму четных и произведение нечётных элементов массива.

Показать ответ
Ответ:
nata3212
nata3212
22.09.2020 11:35
// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
begin
  var n:=ReadInteger('n=');
  var a:=ReadArrInteger('Введите элементы массива:',n);
  var s:=0;
  var p:=1;
  for var i:=0 to n-1 do
    if Odd(i) then s+=a[i] else p*=a[i];
  Writeln('sum=',s,', prod=',p)
end.

Тестовое решение:
n= 5
Введите элементы массива: 18 39 -17 6 12
sum=45, prod=-3672
0,0(0 оценок)
Ответ:
Lokator505
Lokator505
22.09.2020 11:35
Var n, i: Integer;
      sum, pr: LongInt;
      a: array[1..10000] of Integer;
Begin
   sum := 0; pr := 1;
   readln(n);
   for i := 1 to n do begin
      read(a[i]);
      if a[i] mod 2=0
      then sum := sum + a[i]
      else pr := pr*a[i];
   end;
   writeln(sum,' ',pr);
End.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота