сумма элементов

@кристина "~_~" · Регистрация: 17.12.2010

Студворк — интернет-сервис помощи студентам

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

@Dekio · 17.12.2010, 17:14

Pascal

1
2
3

for i:=1 to n do
if odd(arr[i]) then
inc(s,arr[i]);

@кристина "~_~" · 17.12.2010, 17:31 **[ТС]**

Dekio, спасибо ток как сначала делать

@Dekio · 17.12.2010, 17:53

дописывать переменные, заполнять массив

@John_Pa9JIbHuK · 17.12.2010, 17:55

кристина "~_~", предугадаю ваш следующий вопрос "А что такое массивы?"

@кристина "~_~" · 17.12.2010, 18:01 **[ТС]**

что такое массивы я знаю задачи не могу решить

@Dekio · 17.12.2010, 18:08

Сообщение от кристина "~_~"

задачи не могу решить

я уже решил, смотреть выше. что надо сделать, уже разжевал. вперед!

@кристина "~_~" · 17.12.2010, 18:08 **[ТС]**

Dekio, сначала же так надо
var: array of real;
i: integer
for i:=1 to n do
if odd(arr[i]) then
inc(s,arr[i]);
так нет так дальше незнаю

@Dekio · 17.12.2010, 18:09

program
begin
end.
для начала

@кристина "~_~" · 17.12.2010, 18:18 **[ТС]**

ну да эт понятно ты же знаешь я не стала писать я внутри незнаю как по порядку делать

@John_Pa9JIbHuK · 17.12.2010, 18:23

var: array[1..100] of real

@кристина "~_~" · 17.12.2010, 18:30 **[ТС]**

спасибо а дальше что писать подскажи если не трудно

@STGE · 17.12.2010, 18:31

Pascal

uses crt;
const n=10;
var mas: array[1..n] of integer;
      i: byte; sum: integer;
begin
 sum:=0;
 randomize;
 clrscr; 
 writeln ('исходный массив: ');
 for i:=1 to n do
  begin
   mas[i]:=random (19)-9;
   write (mas[i]:3);
  end;
 writeln;
 for i:=1 to n do
  if odd (mas[i]) then 
   inc (sum, mas[i]);
 writeln ('сумма нечетных элементов массива = ',sum);
end.

@John_Pa9JIbHuK Добрый самаритянин 1107 / 622 / 139 Регистрация: 31.03.2009 Сообщений: 2,567
	17.12.2010, 18:23	11
	var: array[1..100] of real 0

@кристина "~_~" 0 / 0 / 0 Регистрация: 17.12.2010 Сообщений: 19
		1
	сумма элементов 17.12.2010, 17:00. Показов 603. Ответов 12 Метки нет (Все метки) дан массив целых чисел. найти сумму нечетных элементов. 0

@кристина "~_~" 0 / 0 / 0 Регистрация: 17.12.2010 Сообщений: 19
	17.12.2010, 17:31 [ТС]	3
	Dekio, спасибо ток как сначала делать 0

@Dekio Фрилансер 5845 / 1226 / 499 Регистрация: 23.11.2010 Сообщений: 3,375 Записей в блоге: 1
	17.12.2010, 17:53	4
	дописывать переменные, заполнять массив 0

@John_Pa9JIbHuK Добрый самаритянин 1107 / 622 / 139 Регистрация: 31.03.2009 Сообщений: 2,567
	17.12.2010, 17:55	5
	кристина "~_~", предугадаю ваш следующий вопрос "А что такое массивы?" 0

@кристина "~_~" 0 / 0 / 0 Регистрация: 17.12.2010 Сообщений: 19
	17.12.2010, 18:01 [ТС]	6
	что такое массивы я знаю задачи не могу решить 0

@Dekio Фрилансер 5845 / 1226 / 499 Регистрация: 23.11.2010 Сообщений: 3,375 Записей в блоге: 1
	17.12.2010, 18:08	7
	Сообщение от кристина "~_~" задачи не могу решить я уже решил, смотреть выше. что надо сделать, уже разжевал. вперед! 0

@кристина "~_~" 0 / 0 / 0 Регистрация: 17.12.2010 Сообщений: 19
	17.12.2010, 18:08 [ТС]	8
	Dekio, сначала же так надо var: array of real; i: integer for i:=1 to n do if odd(arr[i]) then inc(s,arr[i]); так нет так дальше незнаю 0

@Dekio Фрилансер 5845 / 1226 / 499 Регистрация: 23.11.2010 Сообщений: 3,375 Записей в блоге: 1
	17.12.2010, 18:09	9
	program begin end. для начала 0

@кристина "~_~" 0 / 0 / 0 Регистрация: 17.12.2010 Сообщений: 19
	17.12.2010, 18:18 [ТС]	10
	ну да эт понятно ты же знаешь я не стала писать я внутри незнаю как по порядку делать 0

@кристина "~_~" 0 / 0 / 0 Регистрация: 17.12.2010 Сообщений: 19
	17.12.2010, 18:30 [ТС]	12
	спасибо а дальше что писать подскажи если не трудно 0

	17.12.2010, 18:31

Опции темы