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

@Dlas · Регистрация: 18.02.2013

Author24 — интернет-сервис помощи студентам

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

@Germanant · 26.02.2013, 23:36

Pascal

program Project1;
uses
  Crt;
  const n=10;
Var X:array [1..n] of integer;
    El:array[1..3] of integer;
    Fk:integer;
procedure InitM;
var i:integer;
begin
 Randomize;
 for i:=1 to n do
  begin
   X[i]:=random(10)+1;
   Write(x[i]:4);
  end;
  writeln;
end;
function Pow:integer;
var i,P:integer;
begin
p:=1;
for i:=1 to 3 do
 p:=p*El[i];
 pow:=p;
end;
var i,a,b:integer;
begin
Fk:=1;
readln(a);readln(b);
InitM;
for i:=1 to n do
 begin
  if fk=4 then break;
  if (((x[i]>=a)and(x[i]<=b)) and((x[i] mod 3 =0 )or(x[i] mod 5 =0 )))
  then
   begin
    El[Fk]:=x[i];
    inc(fk);
   end;
 end;
if fk=4 then
writeln(pow);
readln;
end.

Новые блоги и статьи
Как написать микросервис на Go/Golang с Kafka и GitHub CI/CD InfoMaster 14.01.2025 Определение микросервиса, преимущества использования Go/ Golang Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .	Как написать микросервис с нуля на C# с RabbitMQ, CQRS и CI/CD InfoMaster 14.01.2025 В современном мире разработки программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот архитектурный подход предполагает. . .	Как создать интернет-магазин на PHP и JavaScript InfoMaster 14.01.2025 В современном мире электронная коммерция стала неотъемлемой частью бизнеса. Создание собственного интернет-магазина открывает широкие возможности для предпринимателей, позволяя достичь большей. . .	Как написать Тетрис на Ассемблере InfoMaster 14.01.2025 Тетрис – одна из самых узнаваемых и популярных компьютерных игр, созданная в 1984 году советским программистом Алексеем Пажитновым. За прошедшие десятилетия она завоевала симпатии миллионы людей по. . .	Как создать игру "Танчики" на Unity3d и C# InfoMaster 14.01.2025 Разработка игр – это увлекательный процесс, сочетающий в себе творчество и технические навыки. В этой статье мы рассмотрим создание классической игры "Танчики" с использованием Unity3D и языка. . .	Организую платный онлайн микро-курс по доработке Android-клиента Telegram _Ivana 14.01.2025 Официальная версия и распространенные форки не полностью устраивают? Сделай свою кастомную версию клиента! 4 занятия по 2 часа (2 недели пн, ср 19:00-21:00 по Москве). Первое вводное занятие. . .
Как создать приложение для фитнеса для iOS/iPhone на Kotlin InfoMaster 14.01.2025 Создание собственного фитнес-приложения — это не только захватывающий, но и полезный процесс, ведь оно может стать вашим верным помощником на пути к здоровому и активному образу жизни. В современных. . .	Как создать приложение магазина для iOS/iPhone на Swift InfoMaster 14.01.2025 Введение в разработку iOS-приложений Разработка приложений для iPhone и других устройств на базе iOS открывает огромные возможности для создания инновационных мобильных решений. В данной статье мы. . .	Это работает. Скорость асинхронной логики велика. Вопрос видимо останется в стабильности. Плата - огонь! Hrethgir 13.01.2025 По прошлому проекту в Logisim Evolution https:/ / www. cyberforum. ru/ blogs/ 223907/ blog8781. html прилагаю файл архива проекта в Gowin Eda. Восьмибитный счётчик из сумматора+ генератор сигнала. . .	UserScript для подсветки кнопок языков программирования в зависимости от текущего раздела volvo 13.01.2025 В результате работы этого скрипта подсвечиваются нужные кнопки не только в форме быстрого ответа, но и при редактировании сообщения: / / ==UserScript== / / @name CF_DefaultLangSelect / / . . .	Введение в модели и алгоритмы машинного обучения InfoMaster 12.01.2025 Машинное обучение представляет собой одну из наиболее динамично развивающихся областей искусственного интеллекта, которая фокусируется на разработке алгоритмов и методов, позволяющих компьютерам. . .	Как на Python создать нейросеть для решения задач InfoMaster 12.01.2025 В контексте стремительного развития современных технологий особое внимание уделяется таким инструментам, как нейросети. Эти структуры, вдохновленные биологическими нейронными сетями, используются для. . .

@Dlas 0 / 0 / 0 Регистрация: 18.02.2013 Сообщений: 8
		1
	Одномерный массив. Найти произведение 3-х элементов, значение которых. заключены на интервале [А, В] и кратны 3 или 5 26.02.2013, 22:47. Показов 1239. Ответов 1 Метки нет (Все метки) Дан массив X(N). Найти произведение 3-х элементов, значение которых. заключены на интервале [А, В] и кратны 3 или 5. 0

	26.02.2013, 23:36

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

Решение