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

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

17.06.2011, 09:20. Показов 2068. Ответов 3
Метки нет (Все метки)

Дан одномерный масив чисел.
Найти сумму всех четных
элементов массива,
максимальный элемент и его
номер, количество элементов,
кратных трем
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.06.2011, 09:20
Ответы с готовыми решениями:

Найти сумму кратных трём отрицательных элементов массива. Найти минимальный элемент массива и его индекс
Друзья!!! Помогите написать текст программы в Паскале: № 3. Сформировать массив X(40) из случайных...

Найти сумму всех элементов массива кратных трем
Дан одномерный массив состоящий из 25 элементов целого числа.Найти сумму всех элементов кратным...

Найти сумму всех элементов массива, кратных трем
Дан одномерный массив, который состоит из целых чисел в диапазоне от –30 до 30. Найти сумму всех...

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

3
Mobile Software Engineer
Эксперт С++
5365 / 1584 / 956
Регистрация: 23.01.2011
Сообщений: 3,214
17.06.2011, 11:28 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var
 arr: array[1..100] of integer;
 n, i, max, sum, cnt: integer;
begin
 cnt:=0; sum:=0; max:=1;
 readln(n);
  for i:=1 to n do
   begin
    arr[i]:=random(100);
    write(arr[i], ' ');
     if arr[i] mod 2 = 0 then sum:=sum+arr[i];
      if arr[i] > arr[max] then max:=i;
       if arr[i] mod 3 = 0 then inc(cnt);
   end;
 writeln;
 writeln('Сумма четных элементов: ', sum, ';');
 writeln('Максимальный элемент: ', arr[max], '; Его индекс: ', max, ';');
 writeln('Кол-во элементво кратных 3: ', cnt, ';');
end.
1
К.О.
534 / 499 / 344
Регистрация: 26.03.2011
Сообщений: 1,141
17.06.2011, 11:47 3
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
Uses crt;
Var
  a: array[1..100] of integer;
  i,n,max,count: byte;
  sum: integer;
 
Begin
  Clrscr;
  Randomize;
  Write('введите количество элементов: ');
  Readln(n);
  For i:=1 to n do
    begin
      a[i]:=random(101)-50;
      Write(a[i],' ');
    end;
  Writeln;
 
  max:=1;
  For i:=1 to n do
    begin
      If a[i] mod 2 = 0 then inc(sum,a[i]); //сумма четных элементов
      If a[i]>a[max] then max:=i; //индекс максимального элемента
      If a[i] mod 3 = 0 then inc(count); //количество элементов, кратных трем
    end;
 
  Writeln('Сумма четных элементов массива: ',sum);
  Writeln('Максимальный элемен: ',a[max],' его номер: ',max);
  Writeln('Количество элементов, кратных трем: ',count);
  Readkey
End.
0
337 / 126 / 114
Регистрация: 09.04.2011
Сообщений: 246
17.06.2011, 11:48 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt;
const n=10;
var a:array[1..n] of integer;
    i,j:byte;
    b,c,max:integer;
begin
clrscr;
  for i:=1 to n do readln(a[i]);
  b:=0;
  for i:=1 to n do if i mod 2=0 then b:=b+a[i];
  max:=a[1];
  for i:=2 to n do if a[i]>max then
   begin
     j:=i;
     max:=a[i];
   end;
  c:=0;
  for i:=1 to n do if a[i] mod 3=0 then c:=c+1;
  writeln(b:2,max:2,j:2,c:2);
readln;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.06.2011, 11:48
Помогаю со студенческими работами здесь

Найти сумму всех отрицательных элементов двухмерного массива, максимальный положительный элемент и его местоположение
Проблема, нужно переписать программу чтобы она работала для двухбайтовых элементов массива, ниже...

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

Вычислить сумму элементов массива А, количество положительных элементов массива В и его максимальный элемент
Дано натуральное число n, массивы А и В размерностью n. Вести с клавиатуры элементы массивов и...

Максимальный элемент массива и его номер и сумму элементов массива расположенных до последнего положительного элемента
Максимальный элемент массива и его номер и сумму элементов массива расположенных до последнего...


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

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

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