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

Определить сумму компонент файлов имеющих нечетные индексы

31.03.2013, 22:51. Показов 867. Ответов 2
Метки нет (Все метки)

Организовать файл целых чисел из N компонентов , определить сумму компонент файлов имеющих нечетные идексы

Добавлено через 3 минуты
Извиняюсь. Это в раздел турбо паскаль....
0

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

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
31.03.2013, 22:51
Ответы с готовыми решениями:

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

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

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

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

2
76 / 76 / 52
Регистрация: 28.02.2013
Сообщений: 206
Записей в блоге: 9
01.04.2013, 03:12 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
32
33
34
35
36
37
38
program xxx;
 
const n=5; //the number of numbers
 
var
    f:file of integer;
    x:array [1..n] of integer;
    i,sum:integer;
 
begin
    assign(f,'f.txt');
    rewrite(f);
    randomize;
    for i:=1 to n do 
        begin
            x[i]:=random(10)+1;
            write(f,x[i]);
        end;
    writeln('Number of integers: ');
    reset(f);
    i:=1;
    while not eof(f) do
        begin
            read(f,x[i]);
            write(x[i]);
            inc(i);
        end;
    {Count sum odd numbers}
    reset(f);
    for i:=1 to n do
        begin
            if odd(i) then
                sum:=sum+x[i];
        end;
    writeln;
    writeln('Sum of the odd numbers = ',sum);
    readln;
end.
1
-17 / 4 / 0
Регистрация: 25.11.2012
Сообщений: 180
01.04.2013, 16:34  [ТС] 3
Огромное спасибо
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.04.2013, 16:34

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

Определить сумму компонент файла имеющих нечётные индексы.
1. Дан файл, содержащий последовательность слов, число букв в которых от 1 до 8. Слова разделены ...

Определить сумму компонент файла, имеющих нечетные индексы
Организовать типизированный файл целых чисел из N компонент. Определить сумму ком¬понент файла...

Организовать файл целых чисел из N компонент. Определить сумму компонент файла имеющих нечётные индексы
Организовать файл целых чисел из N компонент. Определить сумму компонент файла имеющих нечётные...

Определить сумму компонентов файла, имеющих нечетные индексы.
Здравствуйте, помогите реализовать программу с визуальными компонентами:Memo,Button. Организовать...


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

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

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