|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
20.06.2010, 17:14 | #1 |
Регистрация: 31.05.2010
Сообщений: 8
|
Дана последовательность чисел
Дана последовательность чисел aj (i=1,2,...N)
Подсчитать сумму чисел с нечетными индексами и среднее арифметическое чисел с четными индексами.Помогите пожалуйста решить задание... |
20.06.2010, 17:43 | #2 |
ТАМБОВСКИЙ ВОЛК.
Участник клуба
Регистрация: 16.03.2010
Сообщений: 1,354
|
Код:
にんじゃ
|
20.06.2010, 20:50 | #3 |
Регистрация: 31.05.2010
Сообщений: 8
|
спасибо.а как можно без функции odd, просто мы её не проходили ещё..
|
20.06.2010, 20:59 | #4 |
ТАМБОВСКИЙ ВОЛК.
Участник клуба
Регистрация: 16.03.2010
Сообщений: 1,354
|
Код:
Код:
Код:
Код:
にんじゃ
|
20.06.2010, 21:24 | #5 |
Регистрация: 31.05.2010
Сообщений: 8
|
Program abc;
uses crt; const n=10; var a:array [1..n] of integer; sum, sum2, i, sr,:integer; k:real; begin sum := 0; sum2 := 0; k := 0; for i := 1 to n do begin if i mod 2<>0 then begin sum := sum + a[i]; end; if i mod 2=0 then begin k:=k+1; sum2 := sum2 + a[i]; sr := sum2 / k; end; end; writeln; writeln('Сума чисел с нечётными индексами:=', sum); writeln('Среднее арифметическое чисел с чётными индексами:=', sr:1:3); end. ошибка вылазиет, ожидался индентификатор.как то надо последовательность ввести..помоги) |
20.06.2010, 21:26 | #6 |
ТАМБОВСКИЙ ВОЛК.
Участник клуба
Регистрация: 16.03.2010
Сообщений: 1,354
|
вы же до этого писали программы на массивы.Что досих пор ненаучились массив заполнять?
にんじゃ
|
20.06.2010, 21:46 | #7 |
Регистрация: 31.05.2010
Сообщений: 8
|
писал, но что то не получается,может надо рандом ипользовать?
|
20.06.2010, 21:47 | #8 |
ТАМБОВСКИЙ ВОЛК.
Участник клуба
Регистрация: 16.03.2010
Сообщений: 1,354
|
А какая разница.Можно рандомно заполнить а можно и ручной ввод.
にんじゃ
|
20.06.2010, 21:53 | #9 |
Регистрация: 31.05.2010
Сообщений: 8
|
А изза чего тогда ошибка может быть?Ожидался идентификатор sum, sum2, i, sr,:integer;после двоеточия
|
20.06.2010, 21:58 | #10 |
ТАМБОВСКИЙ ВОЛК.
Участник клуба
Регистрация: 16.03.2010
Сообщений: 1,354
|
ну во первых заполни массив перед суммированием элементов.
ну а во вторых Код:
にんじゃ
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Дана последовательность из N различных чисел в delphi | otmarozok87 | Помощь студентам | 0 | 06.05.2010 21:03 |
Assembler. Дана последовательность из 5 чисел..... | Nub007 | Помощь студентам | 3 | 29.01.2010 13:34 |
Дана непустая последовательность различных натуральных чисел, за которой следует 0. | lider24816 | Помощь студентам | 11 | 21.05.2009 20:05 |
Дана непустая последовательность различных натуральных чисел, за которой следует 0. | lider24816 | Помощь студентам | 1 | 22.12.2008 13:28 |