NNurbolat
1

Дан массив из N элементов. Определить произведение тех элементов, которые кратны заданному числу Р.

12.12.2012, 19:28. Показов 5300. Ответов 3
Метки нет (Все метки)

Дан массив из N элементов. Определить произведение тех элементов, которые кратны заданному числу Р. Найти минимальный и максимальный члены последовательности а, состоящей из 10 элементов.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.12.2012, 19:28
Ответы с готовыми решениями:

Двумерный массив. Найти произведение тех элементов, которые кратны заданному
задача :дана матрица A (N*L) найти произведение тех её элементов которые кратны L. мой код : ...

Дан массив из N элементов (натуральные числа). Определить произведение элементов, кратных заданному числу Р
Задание: Дан массив из N элементов (натуральные числа). Определить произведение элементов, кратных...

Дан массив из N элементов (натуральные числа). Определить произведение элементов, кратных заданному числу
Всем доброго времени суток! Задание: Дан массив из N элементов (натуральные числа). Определить...

Определить произведение элементов, значения которых не кратны заданному числу F
решение в Visual Basic 6.0 Дан двумерный массив (матрица) размером NxM. 1. Определить...

3
13 / 13 / 9
Регистрация: 12.10.2012
Сообщений: 49
12.12.2012, 19:51 2
Я так понял это надо две задачи сделать. Вот первая:
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 a: array [1..9999] of integer;
i, n, p, s: integer;
begin
s:=1;
write ('Введите количество элементов в массиве ');
read (n);
writeln ('Исходный массив: ');
for i:=1 to n do
  begin
  a[i]:=random (30);
  write (a[i],' ');
  end;
  writeln;
  writeln ('Введите число ');
  read (p);
   for i:=1 to n do
     begin
     if a[i] mod p = 0 then s:=s*a[i];
     end;
     writeln ('Произведение элементов, кратных числу ',p,' равно ',s);
end.
Сейчас вторую сделаю
1
14 / 14 / 14
Регистрация: 09.12.2012
Сообщений: 56
12.12.2012, 19:51 3
sum:=1;
for i:=1 to n do
if a[i] div p = 0 then
sum: sum*a[i];
1
13 / 13 / 9
Регистрация: 12.10.2012
Сообщений: 49
12.12.2012, 19:58 4
Вот вторая:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
uses crt;
var a: array [1..10] of integer;
i, min, max: integer;
begin
min:=1;
max:=1;
writeln ('Исходный массив: ');
 for i:=1 to 10 do
  begin
  a[i]:=random(25);
  write (a[i],' ');
  end;
 for i:=2 to 10 do
  begin
  if a[i]<a[min] then min:=i;
  end;
  for i:=2 to 10 do
  begin
  if a[i]>a[max] then max:=i;
  end;
  writeln;
 writeln ('Максимальный элемент последовательности: ',a[max]);
 writeln ('Минимальный элемент последовательности: ',a[min]);
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.12.2012, 19:58
Помогаю со студенческими работами здесь

Определить произведение элементов матрицы, значения которых не кратны заданному числу F
Двумерный массив (матрица) размером NxM. Определить произведение элементов, значения которых не...

Определить количество элементов массива, которые кратны заданному целому числу m
Задан одномерный массив с n целых элементов Определить количество элементов этого массива, которые...

Дан массив из n элементов. Найти произведение элементов, кратных заданному числу p
Дан массив из n элементов. Найти произведение элементов, кратных заданному числу p

Найти среднее арифметическое элементов массива, которые кратны заданному числу и определить количество элемент
-------------------------------- Индекс 1 2 3 4 5 6 Элемент -10 15 -4 20 1 8 ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru