Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Определить сумму всех элементов матрицы и разделить элементы каждой строки на первый элемент строки Добрый вечер, решите пожалуйста. Определить и напечатать сумму всех элементов матрицы. Разделить элементы каждой строки заданной матрицы на первый элемент строки. Полученную матрицу напечатать. https://www.cyberforum.ru/ pascal/ thread2412870.html	Написать рекурсивную программу для вычисления суммы Pascal Помогите, пожалуйста, в выполнении этого задания: Напишите рекурсивную программу для вычисления суммы \sum_{i=2}^{n}\frac{1}{(i+1)\cdot i \cdot (i-1)} Указание: Пусть функция f(k) вычисляет сумму a+a+...+a.
Pascal В матрице М(4,6) найти координаты единственного нулевого элемента В матрице М(4,6) найти координаты единственного нулевого элемента m(i,j). Если для нулевого элемента i<j, то сделать нулевыми четные строки. Иначе - четные столбцы. Обеспечить выдачу на экран исходной матрицы, координат нулевого элемента и результатной матрицы. Одну программу используя процедуры и функции без параметров. И одну используя функцию с глобальными переменными (параметров должно... https://www.cyberforum.ru/ pascal/ thread2412774.html	Pascal Защита от дурака на pascal/lazarus https://www.cyberforum.ru/ pascal/ thread2412595.html Здравствуйте, прошу помочь в написании "защиты от дурака". Нужно вводить числа от 1 до 9, другие числа или символы нужно запретить. Заранее спасибо.
Возможно ли автоматически определить, где находится файл? Pascal Написал две программы: одну в delphi, другая в паскале абс. Программа в дельфи, должна запускать по нажатию кнопки консоль программы, написанной в паскале. Все бы хорошо, но в паскале я брал массивы из файла, и прописывал не полный путь, так как exe'шник лежал вместе с этими файлами. Однако сейчас он не может определить там где находится файл. Я мог бы без проблем написать полный путь У СЕБЯ, но...	Pascal Pascal algo система уравнений https://www.cyberforum.ru/ pascal/ thread2412155.html Найти графически решение системы уравнений и написать в ответе координаты точек пересечения x^2+y^2=16 (x-2)^2+(y+1)^2=9
Pascal Работа с типизированными файлами https://www.cyberforum.ru/ pascal/ thread2411927.html type reals = file of real; Описать процедуру p(f,g,h) от трех файлов типа reals, которая переписывает из файла f в непустой файл g все элементы, меньшие среднего арифметического всех элементов файла f, и в непустой файл h записывает все остальные числа. Указание: введите файл f (последний элемент = 0). Выполните процедуру p(f,g,h). Распечатайте файлы g и h.	Найти сумму отрицательных элементов матрицы Pascal Найти сумму отрицательных элементов матрицы B(5,5) расположенных ниже главной диагонали матрицы.
Pascal Найти узел графа, наиболее удаленный от заданного узла https://www.cyberforum.ru/ pascal/ thread2411765.html Добрый день, необходимо найти узел графа, наиболее удаленный от заданного узла. Граф ориентированный. Исходный граф может содержать петли и циклы	Pascal Перевести с C++ на Паскаль https://www.cyberforum.ru/ pascal/ thread2411753.html #pragma hdrstop #include <iostream> #include <Windows> #include <conio.h> using namespace std; int mat; //массив из 20 елементов void main() {
По заданной дате требуется определить, какое число будет послезавтра Pascal По заданной дате требуется определить, какое число будет послезавтра. Напомним, что год является високосным, если его номер кратен 4, но не кратен 100, а также если он кратен 400. Входные данные Дано число, месяц и год (год – число в промежутке от 1 до 10000). Выходные данные Требуется вывести, какое число будет послезавтра, в формате входных данных.	Pascal Составить программу для решения задачи а). Найти сумму элементов целочисленного массива (Z1, Z2,...,Z20), значения, которых кратны 3. б). Вычислить произведение элементов массива (N1, N2,...,N10), и разделить его на 2. https://www.cyberforum.ru/ pascal/ thread2411732.html

Cyborg Drone

Модератор

10060 / 5402 / 3353

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

Сообщений: 16,522

04.03.2019, 11:16

Вычислить количество элементов массива, равных заданному числу, и произведение элементов массива с чётными номерами - Pascal - Ответ 13374973

04.03.2019, 11:16. Показов 2203. Ответов 1

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

Ответ

Pascal

var
  a: array[1..m] of integer;
  i, x, k, p: integer;
 
begin
  randomize;
  writeln('Исходный массив:');
  for i := 1 to m do
    begin
      a[i] := -99 + random(199);
      write(a[i]:4)
    end;
  writeln;
  write('x = ');
  readln(x);
  k := 0;
  p := 1;
  for i := 1 to m do
    begin
      if a[i] = x then inc(k);
      if not odd(i) then p := p * a[i]
    end;
  write('k = ', k, '  p = ', p);
  readln
end.

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

04.03.2019, 11:16

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

Вычислить произведение элементов массива с четными номерами и количество элементов, лежащих в диапазоне
Дан одномерный массив, состоящий из 16ти чисел от –99 до 99, генерируемых случайным образом....

Количество элементов массива равных заданному числу
Дан массив размера 10 с перечисленными элементами. Как найти количество нужных мне элементов...

Найти количество элементов массива, равных заданному числу
Помогите, пожалуйста. 1. Дан массив А (15). Найти количество элементов , равных заданному числу B.

Определить количество элементов массива, равных заданному числу
Здравствуйте!) Дана упорядоченная таблица чисел A , которая может содержать элементы с одинаковыми...

	04.03.2019, 11:16

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

04.03.2019, 11:16

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

Найти произведение элементов массива с чётными номерами и количество элементов, удовлетворяющих условию
Добрый день,я создал код по условию задачи: 3. В одномерном массиве С, состоящем из N вещественных...

В одномерном массиве, состоящем из n элементов, вычислить произведение элементов массива с четными номерами
#include "iostream.h" #include "math.h" main() { const int n=10 int mas,i,count;...

Найти: наибольший элемент массива; произведение элементов с четными номерами; количество элементов, больших D
2) Составить* программу для вычисления A - наибольший элемент массива; B - произведение...

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

Наверх