0 / 0 / 0
Регистрация: 15.02.2015
Сообщений: 4
1

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

15.02.2015, 12:58. Показов 2952. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Нужно сделать две программы:
Дан массив X(N).
1) Найти произведение тех элементов массива значения которых заключены в интервале [А,В] и кратны 3 или 5.
2) Найти найти наибольшее значение. Заменить все элементы из отрезка [-2...2] найденным значением.
(Я новичок в Паскале, нужен образец этих двух прог без наворотов, чтобы разобраться с массивом)

Добавлено через 23 минуты
На первую задачу сделал сам
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
Program Laboratornaya_1_1;
var x: array [1..9999] of integer;
i, n, a, b, s: integer;
begin
s:=1;
write ('Введите количество элементов в массиве ');
read (n);
writeln ('Исходный массив: ');
for i:=1 to n do
  begin
  x[i]:=random (30);
  write (x[i],' ');
  end;
  writeln;
  writeln ('Введите число A');
  read (a);
  writeln ('Введите число B');
  read (b);
   for i:=1 to n do
     begin
     if ((x[i] mod 3)=0) or ((x[i] mod 5)=0) and ((x[i]) >= a) and ((x[i]) <= b) then s:=s*x[i];
     end;
     writeln ('Произведение элементов, кратных числам 3 и 5 в промежутка [А..В] равно ',s);
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.02.2015, 12:58
Ответы с готовыми решениями:

Найти произведение тех элементов массива, значения которых заключены в интервале [A; B] и кратны 3 или 5
Нужна блок-схема и программа Дан массив X(N).найти произведение тех элементов массива, значения...

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

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

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

1
Модератор
9909 / 5265 / 3320
Регистрация: 17.08.2012
Сообщений: 16,100
17.02.2015, 01:12 2
Исправлено и дополнено.
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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
Program Laboratornaya_1_1;
var x: array [1..9999] of integer;
    i, n, a, b, s, m: integer;
    f: boolean;
begin
  randomize;
  repeat
    write('Введите количество элементов в массиве, n > 0: ');
    readln(n)
  until n > 0;
  writeln('Исходный массив:');
  for i := 1 to n do
    begin
      x[i] := 19 - random(39);
      write(x[i]:4);
    end;
  writeln;
  write('A = ');
  readln(a);
  write('B = ');
  readln(b);
  if a > b
    then begin
      m := a;
      a := b;
      b := m
    end;
  s := 1;
  f := false;
  for i := 1 to n do
    if (((x[i] mod 3) = 0) or ((x[i] mod 5) = 0)) and
       ((x[i] >= a) and (x[i] <= b))
      then begin
        s := s * x[i];
        f := true
      end;
  if f
    then writeln('Произведение элементов, кратных числам 3 и 5, в промежутке [А..В] = ', s)
    else writeln('Элементов массива, кратных числам 3 и 5, в промежутке [А..В] не найдено.');
  m := x[1];
  for i := 2 to n do if m < x[i] then m := x[i];
  writeln('Максимальный элемент массива = ', m);
  f := false;
  for i := 1 to n do if (x[i] >= -2) and (x[i] <= 2)
    then begin
      x[i] := m;
      f := true
    end;
  if f
    then begin
      writeln('Результирующий массив, элементы из отрезка [-2..2] заменены на максимум:');
      for i := 1 to n do write(x[i]:4)
    end
    else writeln('Элементы массива из отрезка [-2..2] не найдены.');
  readln
end.
read так, как Вы его используете, использовать нельзя. Если используете read при вводе с клавиатуры, чтение последнего вводимого значения в логически завершённой группе данных должно производиться процедурой readln (кстати, процедур печати между процедурами read без полного понимания работы процедур read и readln быть не должно).

Незачем использовать операторные скобки begin..end для одного оператора. Незачем ставить ";" перед end, сам end и без этого является ограничителем.

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

В случае невозможности выполнения/невыполнения заданных действий следует выводить соответствующее сообщение.

et cetera, et cetera, et cetera...

Всего доброго Вам.
0
17.02.2015, 01:12
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.02.2015, 01:12
Помогаю со студенческими работами здесь

Вычислить произведение элементов массива, значения которых кратны 3
Скажите пожулуйста каким образом сделать данное задание именно на Qbasic и какой алгоритм(если...

Найти количество тех элементов, значения которых по модулю превосходят 100 и кратны 5 и 10
1. Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка...

Найти произведение элементов массива, номера которых кратны трем
Задать случайным образом одномерный массив из 13 целочисленных элементов, принадлежащих отрезку ....

Найти произведение элементов массива (X1,X2,X3,.X15) , индексы которых кратны 3
Найти произведение элементов массива (X1,X2,X3,.....X15) , индексы которых кратны 3


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

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

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