Дан массив целых чисел, состоящий из 15 элементов. Вывести индексы тех элемемтов, значения которых кратны 3 и 5

@Saitooo · Регистрация: 11.01.2009

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

помогите пожалуйста скорее!буду очень признателен!!

@SuPeR XaKer · 02.09.2011, 14:40

Pascal

Uses CRT;
Var mas :array[1..15] of integer;
    i :byte;
begin
 randomize;
 for i:=1 to 15 do
 begin
  mas[i]:=random(80)-15;
  write(mas[i]:3);
 end;
 writeln;
 for i:=1 to 15 do
  if (mas[i] mod 3=0) and (mas[i] mod 5=0) then write(' MAS[',i,']:=',mas[i]);
 readln;
end.

@Jaguar · 02.09.2011, 14:43

Pascal

Uses crt;
const N = 15;
Var
   a:array[1..N] of Integer;
   i:Integer;
Begin
for i:=1 to N do
begin
a[i]:=Random(7)+14;
Write(a[i]:4);
end;
Writeln;
for i:=1 to N do
if(a[i] mod 3 = 0)AND(a[i] mod 5 = 0) then Write(i:4);
End.

@SuPeR XaKer · 02.09.2011, 14:47

for i:=1 to N do begin
if(a[i] mod 3 = 0)AND(a[i] mod 5 = 0) then Write(i:4);
end;

операторные скобки можно и убрать.

@Puporev · 02.09.2011, 15:29

А

Pascal

1	if(a[i] mod 3 = 0)AND(a[i] mod 5 = 0)

можно заменить на

Pascal

1	if a[i] mod 15 = 0

@Allpowerful · 02.09.2011, 15:36

Мне бы твои знания, Puporev, я бы искусственный интеллект создал бы)

@Puporev · 02.09.2011, 15:45

Не по теме:

Сообщение от Allpowerful

Мне бы твои знания, Puporev,

Знать что 3х5=15 это конечно жесть!

@Allpowerful · 02.09.2011, 18:14

Я вообще-то пошутил) Но ничего) Я кстати перешёл на PascalABC.NET Там всё есть) так что говори, есть знания по нему?)

@Puporev · 02.09.2011, 18:36

Сообщение от Allpowerful

есть знания по нему?)

Еще меньше чем по АВС....

@Dani · 02.09.2011, 19:31

Сообщение от Allpowerful

есть знания по нему?)

Его синтаксис очень похож на с++, например там можно объявлять переменные прямо в программе (если не ошибаюсь).

@Puporev · 02.09.2011, 19:41

Сообщение от Dani

там можно объявлять переменные прямо в программе (если не ошибаюсь).

Не ошибаешься. Это кроссплатформенная ИДЕ, там ото всюду надергано...

@Allpowerful · 02.09.2011, 20:24

Сообщение от Dani

Его синтаксис очень похож на с++

Как так, если я читал, что ABC.NET приближённее к Delphi больше, чем ABC?

Добавлено через 44 секунды
Хотя ABC сделан на основе Delphi!

@Puporev · 02.09.2011, 20:57

Синтаксис конечно больше похож на Паскаль и Делфи, единственно переменные можно объявлять как в С++ в программе.

@Dani 1405 / 647 / 135 Регистрация: 11.08.2011 Сообщений: 2,299 Записей в блоге: 2
	02.09.2011, 19:31	10
	Сообщение от Allpowerful есть знания по нему?) Его синтаксис очень похож на с++, например там можно объявлять переменные прямо в программе (если не ошибаюсь). 0

@Allpowerful 1 / 1 / 0 Регистрация: 31.08.2011 Сообщений: 50
	02.09.2011, 20:24	12
	Сообщение от Dani Его синтаксис очень похож на с++ Как так, если я читал, что ABC.NET приближённее к Delphi больше, чем ABC? Добавлено через 44 секунды Хотя ABC сделан на основе Delphi! 0

@Puporev Почетный модератор 64303 / 47600 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	02.09.2011, 20:57	13
	Синтаксис конечно больше похож на Паскаль и Делфи, единственно переменные можно объявлять как в С++ в программе. 0

Новые блоги и статьи
Как написать микросервис на Go/Golang InfoMaster 14.01.2025 Определение микросервиса, преимущества использования Go/ Golang Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .	Как написать микросервис с нуля на C# 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 В контексте стремительного развития современных технологий особое внимание уделяется таким инструментам, как нейросети. Эти структуры, вдохновленные биологическими нейронными сетями, используются для. . .

@Saitooo 0 / 0 / 0 Регистрация: 11.01.2009 Сообщений: 40
		1
	Дан массив целых чисел, состоящий из 15 элементов. Вывести индексы тех элемемтов, значения которых кратны 3 и 5 02.09.2011, 14:26. Показов 12159. Ответов 12 Метки нет (Все метки) помогите пожалуйста скорее!буду очень признателен!! 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,877
	02.09.2011, 14:47	4
	for i:=1 to N do begin if(a[i] mod 3 = 0)AND(a[i] mod 5 = 0) then Write(i:4); end; операторные скобки можно и убрать. 0

@Allpowerful 1 / 1 / 0 Регистрация: 31.08.2011 Сообщений: 50
	02.09.2011, 15:36	6
	Мне бы твои знания, Puporev, я бы искусственный интеллект создал бы) 1

@Puporev
	02.09.2011, 15:45 #7
	Не по теме: Сообщение от Allpowerful Мне бы твои знания, Puporev, Знать что 3х5=15 это конечно жесть! 0

@Allpowerful 1 / 1 / 0 Регистрация: 31.08.2011 Сообщений: 50
	02.09.2011, 18:14	8
	Я вообще-то пошутил) Но ничего) Я кстати перешёл на PascalABC.NET Там всё есть) так что говори, есть знания по нему?) 0

@Puporev Почетный модератор 64303 / 47600 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	02.09.2011, 18:36	9
	Сообщение от Allpowerful есть знания по нему?) Еще меньше чем по АВС.... 0

@Puporev Почетный модератор 64303 / 47600 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	02.09.2011, 19:41	11
	Сообщение от Dani там можно объявлять переменные прямо в программе (если не ошибаюсь). Не ошибаешься. Это кроссплатформенная ИДЕ, там ото всюду надергано... 0