Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal ABC Составьте программу, распечатывающую слова предложения в порядке, обратном алфавитному 3*. Составьте программу, распечатывающую слова предложения в порядке, обратном алфавитному. https://www.cyberforum.ru/ pascalabc/ thread1010034.html	Pascal ABC 2. Составьте программу, печатающую строку: «ZZYY…AA» 2. Составьте программу, печатающую строку: «ZZYY…AA».
Pascal ABC Найти произведение цифр числа https://www.cyberforum.ru/ pascalabc/ thread1010031.html 1. Составьте программу, определяющую произведение цифр числа.	Pascal ABC Напечатать число в обратном порядке 3*. Составьте программу, печатающую число в обратном порядке. https://www.cyberforum.ru/ pascalabc/ thread1010030.html
2. Составьте программу, вставляющую после буквы «К» еще букву «К» Pascal ABC 2. Составьте программу, вставляющую после буквы «К» еще букву «К».	Pascal ABC Составьте программу, удаляющую букву «А» из предложения 1. Составьте программу, удаляющую букву «А» из предложения. https://www.cyberforum.ru/ pascalabc/ thread1010028.html
*Pascal ABC 3. Составьте программу, определяющую, является ли данное предложение восклицательным** 3*. Составьте программу, определяющую, является ли данное предложение восклицательным. https://www.cyberforum.ru/ pascalabc/ thread1010026.html	Pascal ABC Составьте программу, определяющую, какая из букв, «А» или «О» встречается реже в предложении 2. Составьте программу, определяющую, какая из букв, «А» или «О» встречается реже в предложении.
Pascal ABC Составьте программу, заменяющую букву «Е» на «А» в предложении 1. Составьте программу, заменяющую букву «Е» на «А» в предложении. https://www.cyberforum.ru/ pascalabc/ thread1010022.html	Pascal ABC создать блок схему Var a:array of integer; m, n, i, b1, b:integer; begin write('введите год '); readln(n); write('введите месяц '); readln(m); b1:=0; b:=0; https://www.cyberforum.ru/ pascalabc/ thread1009976.html
Pascal ABC Говорят, что число "Счастливое" если сумма цифр левой половины числа равна сумме цифр правой половины числа. если число имеет нечетное количество цифр Люди помогите написать программу, буду очень благодарный!!! Говорят, что число "Счастливое" если сумма цифр левой половины числа равна сумме цифр правой половины числа. если число имеет нечетное количество цифр, то средняя цифра не учитывается. Составить программу наоходження всех "счастливых" N-значных чисел	Pascal ABC задача 53 https://www.cyberforum.ru/ pascalabc/ thread1009902.html

ildwine

Супер-модератор

6194 / 2941 / 1300

Регистрация: 04.03.2013

Сообщений: 5,784

Записей в блоге: 1

17.11.2013, 14:42

Найти сумму элементов массива, находящихся на нечётных позициях - Pascal ABC - Ответ 5347462

17.11.2013, 14:42. Показов 1548. Ответов 5

Метки (Все метки)

Сообщение было отмечено Памирыч как решение

Решение

Pascal

const
  n = 10;
var
  a : array [1..n] of integer;
  s, i : integer;
begin
  s := 0;
  randomize;
  writeln('массив:');
  for i := 1 to n do
  begin
    a[i] := random(20) - 10;
    write(a[i]:4);
    if i mod 2 <> 0 then s := s + a[i]
  end;
  writeln;
  writeln('сумма на нечетных позициях: ', s)
end.

Вернуться к обсуждению:
Найти сумму элементов массива, находящихся на нечётных позициях Pascal ABC

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

17.11.2013, 14:42

Готовые ответы и решения:

Найти сумму элементов матрицы, находящихся на нечетных позициях i-й строки
Я в программировании вообще никакой..Но есть большое желание научиться:) С нуля учиться довольно...

Заменить максимальный элемент массива средним арифметическим элементов, находящихся на нечётных позициях
Что то не сходиться в проге, не могу понять. Вроде всё правильно, но выдаёт ошибку. Что не так?...

Ввести массив. Вывести его. Найти сумму элементов на четных позициях и произведение на нечетных позициях
Помогите пожалуйста решить. ввести массив. Вывести его. Найти сумму элементов на четных позициях и...

Вычислить и вывести произведение первых 7 элементов массива и сумму следующих 7 элементов находящихся на четных позициях
Дан одномерный массив T, который состоит из 18 элементов. Вычислить и вывести произведение первых 7...

	17.11.2013, 14:42

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

17.11.2013, 14:42

Помогаю со студенческими работами здесь

Подсчитать сумму цифр числа, находящихся на нечетных позициях
Всем добрый день..помогите решить 6 задач .ничего не понимаю в этом языке поэтому где можно и нужно...

Подсчитать сумму цифр числа, находящихся на нечетных позициях
Ввести натуральное число. Подсчитать сумму цифр, находящихся на нечетных позициях( слева направо...

Вычислить сумму элементов массива, стоящих на нечетных позициях, и заменить min элемент на найденную сумму
Здравствуйте! Очень нужна Ваша помощь! Требуется создать программу в Visual Basic по заданию ...

Найти произведение ненулевых элементов массива, находящихся на позициях, кратных числу 3
Пишу в CodeBlocks. Задание: Дан массив из 18 вещественных чисел,...

Наверх