Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Вычислить значение выражения https://www.cyberforum.ru/ pascal/ thread1210495.html Вычислить: \sum_{i=1}^{100}\,\sum_{j=1}^{60}\,\sin \left(i^3+j^4 \right)	Pascal Вычислить значение выражения Дано действительное число x. Вычислить: x-\frac{x^^3}{3!}+\frac{x^^5}{5!}-\frac{x^^7}{7!}+\frac{x^^9}{9!}-\frac{x^^{11}}{11!}+\frac{x^^{13}}{13!}
Pascal Переставить числа в массиве: положительные, отрицательные, нули, с сохранением изначального порядка следования https://www.cyberforum.ru/ pascal/ thread1210307.html Дан массив целых чисел,содержащий 10 элементов.Записать в этот же массив сначало все положительные,затем отрицательные,затем нули, сохраняя их порядок следования в массиве. Нужна программа и блок-схема.	Pascal Напечатать в алфавитном порядке все согласные буквы, которые входят ТОЛЬКО в одно слово. Составить Блок-схему https://www.cyberforum.ru/ pascal/ thread1210305.html program LAB6; {Дан текст на русском языке. Напечатать в алфавитном порядке все согласные буквы, которые входят ТОЛЬКО в одно слово. Примеры: 1. Дана строка: 'бвгао, джзие, бвгджз' Ответ: Нет ни одной согласной буквы, которая входила бы только в одно слово. 2.
Pascal Решить уравнение и составить блок схему x=2a+b Если x >= 0, то x^2-lnx Если 0<= x < 10 , то 2^a+sin^2x Если x < 0 , то tgx + a/5 задать A и В, и выполнить то уравнение под которое подходит Х.( + Блок-схема), заранее благодарен!)	Pascal Разработать программу для вычисления в двумерном массиве Задание: Разработать программу для вычисления в двумерном массиве : -Суммы отрицательных чисел. -Количества положительных четных чисел. -Количества положительных нечетных чисел. -Сумму положительных нечётных чисел. Программа для Pascal.Заранее спасибо. https://www.cyberforum.ru/ pascal/ thread1210296.html
Pascal Протабулировать функцию Задание: Составить программу табулирования функции в в заданном диапазоне и заданным шагом с использованием цикла FOR. Переменные a и b - произвольные константы. y=a\sqrt{\left(x+1 \right)^5}+\left(x+4 \right)\cos x+b \sin ^3\left(x-1 \right)^2\ ,\ \ x\in \left\ ,\ \ \Delta =1 https://www.cyberforum.ru/ pascal/ thread1210274.html	Задача Форд-Фалкерсона. Нахождение максимального потока Pascal Всем привет! Помогите пож-та написать прогу: задача Форд-Фалкерсона. Нахождение максимального потока.(В Паскаль).
Pascal Найти ср. арифметическое элементов столбцов матрицы, последний элемент которых находится в заданном интервале Доброго времени суток, нужна помощь с задачей Процедуры. Найти среднее арифметическое элементов тех столбцов заданной матрицы, последний элемент которых находится в интервале https://www.cyberforum.ru/ pascal/ thread1210064.html	Pascal Записать в выходной файл слова в порядке возрастания длины слов Дан текст на русском языке. Записать в выходной файл слова в порядке возрастания длины слов. https://www.cyberforum.ru/ pascal/ thread1210010.html
Pascal Записать в выходной файл построчно все числовые константы :help: Дана программа написанная на языке Pascal.. Записать в выходной файл построчно все числовые константы, встречающиеся в этой программе, вместе с номером строки программы.	Pascal Проанализировать результаты выполнения контрольных работ дан список учеников класса и отметки каждого из учеников за выполнение двух контрольных работ. требуется: а)подсчитать число учеников, выполнивших первую работу на 5 б)подсчитать число учеников, выполнивших хотя бы одну работу на 5 в)подсчитать число учеников, выполнивших обе работы на 5 Г)подсчитать число учеников, выполнивших вторую работу на 4 и 5 д)подсчитать число учеников, выполнивших... https://www.cyberforum.ru/ pascal/ thread1209928.html

rjxxx

Фрилансер

73 / 73 / 51

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

Сообщений: 317

17.06.2014, 19:57

Определить сумму элементов массива X[n] с четными номерами - Pascal - Ответ 6331408

17.06.2014, 19:57. Показов 1436. Ответов 2

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

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

Решение

Pascal

const n = 10;
var
i,summ:integer;
X:array[1..n] of integer;
 
begin
  for i:=1 to n do
  begin
    X[i]:=random(100);
    if (i mod 2)=0 then summ:=summ+X[i];
    write(X[i],' ');
  end;
  writeln;
  writeln('Сумма = ',summ);
  writeln;
  
  for i:=1 to n do
  begin
    X[i]:=sqr(X[i]);
    if (i mod 2)=0 then summ:=summ+X[i];
    write(X[i],' ');
  end;
  writeln;
  writeln('Сумма = ',summ);;
  readln;
end.

Вернуться к обсуждению:
Определить сумму элементов массива X[n] с четными номерами Pascal

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

17.06.2014, 19:57

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

Дан массив из N элементов. Нужно найти сумму элементов с четными номерами и отдельно-с нечетными номерами
Помогите сделать

Определить сумму элементов массива X[n] с четными номерами
Задание 1. Определить сумму элементов массива X с четными номерами. Вывести массив и полученную...

Определить сумму отличных от нуля элементов массива с четными номерами
Дан одномерный массив действительных чисел, состоящий из 60 элементов. Определить сумму отличных от...

Вывести сумму элементов массива с четными номерами
Дана целочисленная таблица a вывести сумму элементов с четными номерами.ввод состоит из числа...

	17.06.2014, 19:57

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

17.06.2014, 19:57

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

Найти сумму элементов массива с четными номерами, содержащего 10 чисел
Найти сумму элементов массива с четными номерами, содержащего 10 чисел.

Найти сумму не положительных элементов двумерного массива A [N, M ] c четными номерами столбцов
Как найти в паскале сумму не положительных элементов двумерного массива A c четным номером...

Определить среднее геометрическое положительных элементов массива с четными номерами
Нуждаюсь в помощи каждого, кто здесь есть!!! Мне очень нужна ваша помощь =(!! Задан числовой...

Определить сумму элементов массива с нечетными номерами, произведение элементов массива с четными номерами
Помогите пожалуйста решить две задачи 1. сумму элементов массива с нечетными номерами;...

Определить сумму элементов массива X(n) с четными номерами
1)Определить сумму элементов массива X(n) с четными номерами. Вывести массив и полученную сумму....

Определить сумму элементов массива с четными номерами
определить сумму второго, четвертого, шестого и т.д. элементов массива

Наверх