Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/15: Рейтинг темы: голосов - 15, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 29.01.2015
Сообщений: 65
1

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

24.12.2015, 13:25. Показов 2942. Ответов 6
Метки нет (Все метки)

В заданном целочисленном массиве найти:

а) сумму элементов имеющих нечетные индексы, и сами элементы по абсолютной величине больше заданного К (задается с клавиатуры);
б) индексы (номера) тех элементов, значения которых больше значения предыдущего элемента (начиная со второго);
в) количество положительных элементов массива, которые кратны 3 или 5 и оканчиваются цифрой 0.
Массив формировать с помощью генератора RANDOM
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.12.2015, 13:25
Ответы с готовыми решениями:

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

Определить сумму элементов массива, имеющих нечетные индексы
Есть массив d из n элементов, необходимо определить и вывести сумму элементов, имеющих нечетные...

Найти сумму элементов, имеющих нечетные индексы.
Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка . а)...

Найти наибольший из элементов массива, имеющих нечетные индексы.
Можете подправить задачку, а то чето не работает! program massiv; const n=10; const...

6
Хитрая блондиночка $)
1462 / 977 / 399
Регистрация: 21.12.2015
Сообщений: 3,785
24.12.2015, 13:31 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
const n=666;
var i,k,c,s:integer; a:array[1..n] of integer;
begin
 readln(k);
 for i:=1 to n do begin
   a[i]:=random(100); Write(a[i]:5);
   if odd(i) and (abs(a[i])>k) then sum:=sum+a[i];
   if (a[i]>0) and ((a[i] mod 3)=0) and ((a[i] mod 5)=0) then inc(c); 
 end;
 writeln('сумму элементов:',s,' количество положительных: ',c);
 for i:=2 to n do if a[i]>a[i-1] then write(i:5);
 Readln;
end.
Окейнышко?
0
APALoff
24.12.2015, 15:42
  #3

Не по теме:

Цитата Сообщение от Hikari Посмотреть сообщение
Окейнышко?
Нет такого слова! Не надо издеваться над великим и могучим.

0
Hikari
24.12.2015, 16:15
  #4

Не по теме:

Цитата Сообщение от APALoff Посмотреть сообщение
Не надо издеваться над великим и могучим.
Мне можнышко. Йя блондинко :hihi:

0
APALoff
24.12.2015, 16:20
  #5

Не по теме:

Цитата Сообщение от Hikari Посмотреть сообщение
Мне можнышко. Йя блондинко
Незнание закона не освобождает от ответственности!

https://www.cyberforum.ru/announcement.php?a=3
3.1 Уважительно относитесь к другим участникам форума.
4.8 Избегайте грамматических ошибок при написании сообщений - уважайте себя и других участников форума.
5.2 Запрещено использовать нецензурные выражения в любом виде, оскорблять других участников форума, умышленно использовать выражения, противоречащие правилам русского языка, в том числе "олбанский" язык.
5.22 Запрещено намеренно вводить других пользователей форума в заблуждение.

0
0 / 0 / 0
Регистрация: 29.01.2015
Сообщений: 65
24.12.2015, 18:03  [ТС] 6
Почему не работает?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 uses crt;
 const N=20;
 var A:array [1..N]of integer;
     i,c:integer;
 begin
   clrscr;
   for i:=1 to N do
   A[i]:= random(40);
   Write(a[i]:5);
   for i:=1 to N do
   write(A[i]:6);
if (a[i]>0) and ((a[i] mod 3)=0) or ((a[i] mod 5)=0) then inc(c); 
writeln;
writeln(c);
end.
0
охотник
1011 / 535 / 650
Регистрация: 29.09.2014
Сообщений: 1,083
24.12.2015, 19:03 7
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
const N=20;
var A:array [1..N]of integer;
i,c:integer;
begin
for i:=1 to N do
 begin
  A[i]:= -20+random(111);
  Write(a[i]:4);
 end;
for i:=1 to N do
 if (a[i]>0)and(a[i] mod 10=0)and(a[i] mod 3 =0) then inc(c);
 {из [-20,90] только 30, 60 и 90...}
writeln;
writeln(c);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.12.2015, 19:03

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Найти сумму четных элементов массива, имеющих четные индексы
Ребята, помогите с задачей пожалуйста: Дан целочисленный массив С из n эл-тов (n<=30). Нужно найти...

Найти сумму четных элементов массива, имеющих четные индексы
Помогите обойтись без рандома, буду очень благодарен! program One; const n=30; var a:array ...

Вычислить произведение элементов массива, имеющих нечетные индексы
Дано одномерный массив действительных чисел Х и действительное число а. Составить программу...

Найти сумму элементов массива вещественных чисел, имеющих нечётные номера
Нужно Найти сумму элементов массива вещественных чисел, имеющих нечётные номера.Размерность массива...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.