Как в паскале найти сумму массива нечетных - Исправление недочетов и поиск решений вместе с Examum.ru

0 / 0 / 0

Регистрация: 11.03.2012

Сообщений: 64

Найти сумму нечетных элементов массива

21.06.2012, 17:24. Показов 53791. Ответов 1

6.4) Дан массив целых чисел. Найти сумму нечетных элементов;

Amid007

63 / 63 / 51

Регистрация: 20.05.2011

Сообщений: 116

22.06.2012, 00:47

Сообщение было отмечено Doc….99 как решение

Решение

Pascal

program chisla;
uses crt;
var a: array [1..10] of integer;
    i,sum: integer;
begin
 clrscr;
 sum:=0;
 for i:=1 to 10 do
 begin
  write('a[',i,']= ');
  readln(a[i]);
  if a[i] mod 2<>0 then sum:= sum+a[i];
 end;
 write('sum= ',sum);
 readln;
end.

Источник

const n=10; W=6; D=2;
var
  a: array [1..n] of Real;
  s: Real;
  i, j: Integer;
begin
  Randomize;
  for i:=1 to n do a[i]:=-5+10*Random;
  Write('A ='); for i:=1 to n do Write(a[i]:W:D); WriteLn;
  s:=0; i:=1; while i<=n do begin s:=s+a[i]; Inc(i,2); end;
  WriteLn('Сумма элементов с нечетным номером: ',s:0:D);
  i:=1; while (i<=n) and (a[i]>=0) do Inc(i);
  j:=n; while (j>=1) and (a[j]>=0) do Dec(j);
  s:=0; for i:=i+1 to j-1 do s:=s+a[i];
  WriteLn('Сумма элементов между первым и последним отрицательными: ',s:0:D);
  j:=1; for i:=1 to n do if Abs(a[i])>1 then begin a[j]:=a[i]; Inc(j); end;
  for i:=j to n do a[i]:=0;
  Write('A''='); for i:=1 to n do Write(a[i]:W:D); WriteLn;
end.

Источник

Сумма четных и нечетных элементов массива

В этой теме 0 ответов, 1 участник, последнее обновление 6 лет, 2 месяца назад сделано Васильев Владимир Сергеевич.

Сообщения

Напишите процедуру, которая вычисляет сумму элементов массива имеющих четное значение и нечетное.

Решение:

program procedures_4;
uses crt;
type Arr=array[1..100] of integer;
var
  A: Arr;
  i, n, sum1, sum2: integer;
procedure sum(d: integer; mas: Arr);
  var j, sum1, sum2: integer;
begin
  for j:=1 to d do
    if mas[j] mod 2=0 then sum1:=sum1+mas[j]
    else sum2:=sum2+mas[j];
  writeln;
  writeln('Сумма четных элементов: ', sum1);
  write('Сумма нечетных элементов: ', sum2);
end;
begin
  clrscr;
  write('Количество элементов > '); read(n);
  for i:=1 to n do
  begin
    A[i]:=random(10);
    write(A[i], ' ');
  end;
  sum1:=0; sum2:=0;
  sum(n, A);
  readkey;
end.

Автор

Сообщения

Для ответа в этой теме необходимо авторизоваться.

Источник

// PascalABC.NET 3.2, сборка 1404 от 16.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
var a:=ArrRandom(10,-99,99); a.Println;
Writeln(‘Сумма элементов с четным значением ‘,
a.Where(x->x.IsEven).Sum);
Writeln(‘Произведение элементов с нечетным значением ‘,
a.Where(x->x.IsOdd).Aggregate(int64(1),(x,y)->x*y))
end.

Пример
45 -95 41 -26 -99 -96 77 -4 18 41
Сумма элементов с четным значением -108
Произведение элементов с нечетным значением 54780974325

Источник

Найти и вывести на экран сумму нечётных элементов массива и количество отрицательных.

Паскаль.

На этой странице вы найдете ответ на вопрос Найти и вывести на экран сумму нечётных элементов массива и количество отрицательных?. Вопрос
соответствует категории Информатика и уровню подготовки учащихся 5 — 9 классов классов. Если ответ полностью не удовлетворяет критериям поиска, ниже можно
ознакомиться с вариантами ответов других посетителей страницы или обсудить с
ними интересующую тему. Здесь также можно воспользоваться «умным поиском»,
который покажет аналогичные вопросы в этой категории. Если ни один из
предложенных ответов не подходит, попробуйте самостоятельно сформулировать
вопрос иначе, нажав кнопку вверху страницы.

Источник