Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Найти максимальный элемент среди положительных элементов массива M(25) Дан массив М(25). Нужно найти максимальный элемент среди положительных элементов. Помогите, пожалуйста https://www.cyberforum.ru/ pascal/ thread1218158.html	Pascal Для каждого слова напечатать его характеристику: само слово, количество в нем символов Задали задачу сделать в С++ и паскале. Помогите сделать в паскале, кому не лень. Вводится последовательность слов. Для каждого слова напечатать его характеристику: само слово, количество в...
Pascal Создайте новый одномерный массив из элементов двумерного массива, имеющих нечетное значение https://www.cyberforum.ru/ pascal/ thread1217951.html Нужны алгоритм и программа. Заполнить двумерный числовой массив B(6,6) случайными целыми числами в интервале . Вывести значения элементов массива в виде матрицы, причём на каждый элемент отвести 4...	Pascal Замените элементы стоящие в четных строках, на цифру 100 Нужны алгоритм и программа. Заполнить двумерный числовой массив B(6,6) случайными целыми числами в интервале . Вывести значения элементов массива в виде матрицы, причём на каждый элемент отвести 4... https://www.cyberforum.ru/ pascal/ thread1217950.html
Найдите произведение отрицательных элементов побочной диагонали матрицы Pascal Нужны алгоритм и программа. Заполнить двумерный числовой массив B(6,6) случайными целыми числами в интервале . Вывести значения элементов массива в виде матрицы, причём на каждый элемент отвести 4...	Pascal Переписать код методом ООП с модулем https://www.cyberforum.ru/ pascal/ thread1217873.html Переписать методом Объектно-Ориентированного Программирования и чтобы он содержал модуль. Var a:array of integer; i,max,j:byte; begin randomize; max:=a; for i:=1 to 15 do begin...
Pascal Определить, что будет выведено на печать в каждом из 4-х вариантов https://www.cyberforum.ru/ pascal/ thread1217845.html 3. Определить, что будет выведено на печать в каж-дом из 4-х вариантов: Var c,d : integer; Procedure P (x,y : integer) begin y:=x+1 end; Procedure Q (x : integer; var y : integer) begin y:=x+1...	Pascal Найти общее количество элементов, кратных 4, для 3-х массивов 2. Заполнить случайными числами 3 массива a, b, c. Найти общее количество элементов, кратных 4, для всех 3-х массивов.
Pascal Вычислить S(n) для n от 1 до 5 с шагом 1 https://www.cyberforum.ru/ pascal/ thread1217843.html 1. Написать функцию для вычисления и вычислить S(n) для n от 1 до 5 с шагом 1. S\left( n\right)=\sum_{i=1}^{n}\frac{2i^n}{\left( n+2\right)!}	Pascal Оператор выбора - допустимо ли оформить код приведенным способом Можно ли так написать: case e or f of 3..365:Оператор1; else Оператор2 end; https://www.cyberforum.ru/ pascal/ thread1217592.html
Pascal Написать программу для вычисления среднего арифметического значения элементов масива Дано массив с N элементами целого типа. Написать программу для вычисления среднего арифметического значения элементов массива.	Pascal Определить в каком из двух файлов находится самый высокий человек и вывести всю информацию о нём Дан файл, состоящий из записей вида. Разработать функцию определения номера самого высокого человека в файле. Используя эту функцию, определить в каком из двух файлов находится самый высокий человек... https://www.cyberforum.ru/ pascal/ thread1217542.html

rjxxx

Фрилансер

73 / 73 / 51

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

Сообщений: 317

27.06.2014, 12:25

Найти произведение положительных элементов массива, стоящих на местах, номера которых кратны трем - Pascal - Ответ 6370910

27.06.2014, 12:25. Показов 1842. Ответов 1

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

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

Решение

Pascal

var
  N:array[1..14] of integer;
  i,proizv:integer;
begin
  proizv:=1;
  
  for i:=1 to 14 do
  begin
    N[i]:=random(-100,100);
    if (i mod 3 = 0) and (N[i]>0) then proizv:=proizv*N[i];
  end;
 
  writeln(proizv);
end.

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

27.06.2014, 12:25

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

Создайте новый одномерный массив из элементов двумерного массива, стоящих в столбцах, номера которых кратны 3
Создайте новый одномерный массив из элементов двумерного массива, стоящих в столбцах, номера...

Файлы. Вычислить произведение чисел, порядковые номера которых кратны трем
2). В текстовом файле содержится последовательность действительных чисел. Вычислить произведение...

Найти и вывести все номера четных элементов массива, стоящих на нечетных местах
Найти и вывести все номера четных элементов массива, стоящих на нечетных местах.

Найти произведение тех элементов массива значения которых заключены в интервале [А, В] и кратны 3 или 5
Нужно сделать две программы: Дан массив X(N). 1) Найти произведение тех элементов массива...

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

27.06.2014, 12:25

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

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

Написать программу, находящую сумму элементов, стоящих на четных местах и максимум среди элементов, стоящих на нечетных местах.
Всем привет! Помогите, пожалуйста, решить две задачи по программированию. Задача 1: Задан массив...

Одномерный массив. Найти произведение 3-х элементов, значение которых. заключены на интервале [А, В] и кратны 3 или 5
Дан массив X(N). Найти произведение 3-х элементов, значение которых. заключены на интервале и...

Файлы. Вычислить произведение чисел, порядковые номера которых кратны пяти
В текстовом файле содержится последовательность действительных чисел. Вычислить произведение чисел,...

Наверх