Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
california
0 / 0 / 0
Регистрация: 13.06.2011
Сообщений: 37
#1

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

16.06.2011, 23:11. Просмотров 877. Ответов 5
Метки нет (Все метки)

Составить одномерный массив

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.06.2011, 23:11
Ответы с готовыми решениями:

Найти сумму элементов массива с нечётными индексами
Массив целых чисел, состоящий из 20 элементов, задан случайным образом ...

Вычислить сумму элементов равных 0, стоящих в столбцах с нечётными номерами
Задача: Дан массив 4х4 из целых чисел. Вычислить сумму элементов равных 0,...

Найти сумму всех элементов массива, кроме элементов с номерами от K до L включительно
Дан массив размера N и целые числа K и L (1<K<=L<=N). Найти сумму всех...

Найти сумму всех элементов массива, кроме элементов с номерами от K до L включительно
1. Дан массив размера N и целые числа K и L (1 < K ≤ L ≤ N). Найти сумму всех...

Найти сумму всех элементов массива, кроме элементов с номерами K и L
Дан массив размера N и целые числа K и L (1<K<=L<=N). Найти сумму всех...

5
swillrocker
84 / 84 / 92
Регистрация: 09.04.2011
Сообщений: 183
16.06.2011, 23:19 #2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
const n=10;
var a:array[1..n] of integer;
      i,s:integer;
begin
   s:=0;
   for i:=1 to n do readln(a[i]);
   for i:=1 to n do if i mod 2=1 then s:=s+a[i];
   writeln(s);
   readln;
end.
0
shilovec5377
29 / 54 / 12
Регистрация: 26.05.2011
Сообщений: 755
16.06.2011, 23:24 #3
напиши условие:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var a:array[1..9] of integer;
sum,i:integer;
begin
sum:=0;
 
for i:=1 to 9 do
begin
if (i  mod 3=0) then   // не помню точно как записываеться
sum:=sum+i;
 
writeln(i);
readln;
End;
End.
Как-то так;
0
california
0 / 0 / 0
Регистрация: 13.06.2011
Сообщений: 37
16.06.2011, 23:34  [ТС] #4
там еще уравнение идет zi=(Si*sinSi+3)/Si^2+1
Si{-7;-1;3,5;2,1;}
0
Kodzaev
3002 / 1891 / 1646
Регистрация: 30.04.2011
Сообщений: 3,054
16.06.2011, 23:43 #5
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

shilovec5377, неправильно у Вас
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program ex;
uses crt;
var a:array[1..10] of integer;
S,n,i:integer;
begin clrscr;
write('vvedite kol-vo chisel: ');read(n);
for i:=1 to n do
begin
write('a[',i,']= ');read(a[i]);
end;
for i:=1 to n do
if i mod 2<>0 then s:=s+a[i];
write(s);
readkey
end.
0
california
0 / 0 / 0
Регистрация: 13.06.2011
Сообщений: 37
16.06.2011, 23:50  [ТС] #6
Цитата Сообщение от shilovec5377 Посмотреть сообщение
напиши условие:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var a:array[1..9] of integer;
sum,i:integer;
begin
sum:=0;
 
for i:=1 to 9 do
begin
if (i  mod 3=0) then   // не помню точно как записываеться
sum:=sum+i;
 
writeln(i);
readln;
End;
End.
Как-то так;
На вложении картинка с заданием более подробно
0
Миниатюры
Найти сумму элементов массива с нечётными номерами  
16.06.2011, 23:50
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.06.2011, 23:50

Найти сумму элементов массива с номерами от K до L включительно.
Дан массив размера N и целые числа k и L(1&lt;k&lt;L&lt;N). Найти сумму элементов...

Найти сумму элементов массива с нечетными номерами
Ребят,нужно решить в Pascal: В одномерном массиве, состоящем из n вещественных...

Найти сумму элементов массива с номерами от K до L включительно.
Дан массив размера N и целые числа K и L (1 ≤ K ≤ L ≤ N). Найти сумму элементов...


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

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

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