0 / 0 / 0
Регистрация: 28.06.2013
Сообщений: 15
1

Даны два одномерных массива размера n и s/ для первого массива вычислить сумму четных элеменртов, для второго - сумма нечетных элементов

28.06.2013, 17:19. Показов 946. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Даны два одномерных массива размера n и s/ для первого массива вычислить сумму четных элеменртов, для второго - сумма нечетных элементов.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.06.2013, 17:19
Ответы с готовыми решениями:

Даны два одномерных массива, создать третий массив, содержащий элементы первого и второго массивов
Дано два одномерных массива, создать третий массив,который содержит элементы первого и второго...

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

Вычислить сумму элементов массива от первого до второго отрицательного элемента
Дан одномерный массив, состоящий из N числа элементов. Необходимо: 1. найти количество четных...

Даны три одномерных массива. В каждом массиве вычислить сумму четных элементов и вывести на экран максимальную из них
13. Даны три одномерных массива. В каждом массиве вычислить сумму четных элементов и вывести на...

3
840 / 498 / 325
Регистрация: 29.12.2009
Сообщений: 1,106
28.06.2013, 22:36 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
const
  k=10;
var
  n,s:array [1..k] of integer;
  i,s1,s2:integer;
begin
  randomize;
  s1:=0;
  writeln ('Massiv N: ');
  for i:=1 to k do
   begin
    n[i]:=random(9)+1;
    write (n[i]:3);
    if n[i] mod 2 = 0 then s1:=s1+n[i];
   end;
  writeln;
  writeln ('Summa: ',s1);
  s2:=0;
  writeln ('Massiv S: ');
  for i:=1 to k do
   begin
    s[i]:=random(9);
    write (s[i]:3);
    if s[i] mod 2 <> 0 then s2:=s2+s[i];
   end;
  writeln;
  writeln ('Summa: ',s2);
  readln;
end.
1
0 / 0 / 0
Регистрация: 28.06.2013
Сообщений: 15
30.06.2013, 09:43  [ТС] 3
надо функциями
0
Фрилансер
3418 / 2815 / 3000
Регистрация: 08.02.2012
Сообщений: 8,598
Записей в блоге: 1
30.06.2013, 10:08 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Type mas=array[1..100] of integer;
Var A,B:mas;
    i,n,s:integer;
Function F(A:mas;n,k:integer):integer;
Var i,s:integer;
Begin
    s:=0;
    Case k of 
    1:
      For i:=1 to n do
       if odd(A[i]) then inc(s,A[i]);
    2:
      For i:=1 to n do
       if not odd(A[i]) then inc(s,A[i]);
    End;
    F:=s;
End;
Begin
    write('Введите N: ');readln(n);
    writeln('Первый массив');
    For i:=1 to n do
    Begin
      A[i]:=random(31)-15;
      write(A[i]:4);
    End;
    writeln;
    write('Введите S: ');readln(n);
    writeln('Второй массив');
    For i:=1 to n do
    Begin
      B[i]:=random(31)-15;
      write(B[i]:4);
    End;
    writeln;
    writeln('Сумма чётных элементов первого массива = ',F(A,n,2));
    writeln('Сумма нечётных элементов второго массива = ',F(B,s,1));
    readln;
End.
1
30.06.2013, 10:08
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.06.2013, 10:08
Помогаю со студенческими работами здесь

Даны два одномерных массива А и В. Подсчитайте количество тех элементов, для которых A[i]=B[i].
Даны два одномерных массива А и В. Подсчитайте количество тех элементов, для которых A=B.

Даны два одномерных целочисленных массива A и B размерностью 20 (вводятся из файла). Найти количество четных чисел в массиве A и количество нечетных ч
Даны два одномерных целочисленных массива A и B размерностью 20 (вводятся из файла). Найти...

Даны два одномерных массива разной размерности. Для каждого из заданных одномерных массивов выполнить: из
Даны два одномерных массива разной размерности. Для каждого из заданных одномерных массивов...

Получить третий массив который на четных номерах элементы второго массива на нечетных элементы первого массива
помогите с задачей: Даны два массива. Получить третий массив который на четных номерах элементы...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru