Одномерные массивы. Определить произведение элементов, которые без остатка делятся на 2 и не делятся на 3

@Николай Давыдов · Регистрация: 15.12.2011

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

Ребят помогите пожалуйста с двумя задачами "одномерные массивы"

1)Ввести одномерный массив A из 13 элементов. Определить в нём произведение элементов чье значение без остатка делится на 2 и не делится на 3.

2)Ввести одномерный массив A из N элементов. Каждый элемент, стоящий на нечетной позиции в массиве заменить остатком от деления этого элемента на 7. Массив вывести до и после преобразования.

@Slim_py · 18.12.2011, 18:26

1

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var a:array[1..13] of integer;
    i,p:integer;
begin
   p:=1;
   writeln('Ââåäèòå ìàññèâ');
   for i:=1 to 13 do
      begin
         readln(a[i]);
         if (a[i] mod 2=0) and not (a[i] mod 3=0)
            then p:=p*a[i];
      end;
   writeln('Ïðîèçâåäåíèå = ',p);
end.

@Zloi1u · 18.12.2011, 18:27

Ввести одномерный массив A из 13 элементов. Определить в нём произведение элементов чье значение без остатка делится на 2 и не делится на 3.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Uses CRT;
var
m: array[1..13] of integer;
i:byte;
p:real;
begin
p:=1;
for i:=1 to 13 do
begin
m[i]:=random(256);
write(m[i],' ');
if (m[i]mod 2= 0) and ( m[i]mod 3<>0) then
p:=p*m[i];
end;
Writeln;
writeln('p=',p);
readln;
end.

@Николай Давыдов · 18.12.2011, 18:34 **[ТС]**

Ребят спасибо огромное!! А кто нибудь знает как вторую решить?

@Zloi1u · 18.12.2011, 18:42

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Uses CRT;
var
m: array[1..1000] of integer;
i,n:byte;
 
begin
write('n=');
readln(n);
for i:=1 to n  do
begin
m[i]:=random(256);
write(m[i],' ');
end;
writeln;
for i:=1 to n  do
if (i mod 2 = 1) then
begin
m[i]:=m[i] div 7;
write(m[i],' ')
end
else  write(m[i],' ');
end.

@Николай Давыдов · 18.12.2011, 19:32 **[ТС]**

Спасибо большое очень выручили!!!

@pionnerka · 11.11.2013, 15:59

А можно еще к этому заданию блок схему попросить сделать?

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .

@Николай Давыдов 0 / 0 / 0 Регистрация: 15.12.2011 Сообщений: 9

	Одномерные массивы. Определить произведение элементов, которые без остатка делятся на 2 и не делятся на 3 18.12.2011, 18:01. Показов 4890. Ответов 6 Метки нет (Все метки) Ребят помогите пожалуйста с двумя задачами "одномерные массивы" 1)Ввести одномерный массив A из 13 элементов. Определить в нём произведение элементов чье значение без остатка делится на 2 и не делится на 3. 2)Ввести одномерный массив A из N элементов. Каждый элемент, стоящий на нечетной позиции в массиве заменить остатком от деления этого элемента на 7. Массив вывести до и после преобразования. 0

@Николай Давыдов 0 / 0 / 0 Регистрация: 15.12.2011 Сообщений: 9
	18.12.2011, 18:34 [ТС]
	Ребят спасибо огромное!! А кто нибудь знает как вторую решить? 0

@Николай Давыдов 0 / 0 / 0 Регистрация: 15.12.2011 Сообщений: 9
	18.12.2011, 19:32 [ТС]
	Спасибо большое очень выручили!!! 0

@pionnerka 0 / 0 / 0 Регистрация: 08.11.2013 Сообщений: 6
	11.11.2013, 15:59
	А можно еще к этому заданию блок схему попросить сделать? 0