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

Найти минимальное значение среди четных, не кратных трем элементов массива

22.10.2012, 19:30. Показов 2553. Ответов 1
Метки нет (Все метки)

Дан целочисленный массив из 20 элементов, который принимает целые значения от 0 до 1000.Найти min значение среди элементов массива которые четные и не делятся на 3.

в программе должна быть min:= -maxint;

люди HelpDDD
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.10.2012, 19:30
Ответы с готовыми решениями:

Найти минимальное значение среди положительных элементов массива
Здраствуйте, пожалуйста помогите решить задачку: Найти минимальное значение среди положительных...

Массив: Вывести на экран минимальное значение среди положительных элементов массива и максимальное - среди отрицательных элементов
Дан целочисленный массив с неповторяющимися элементами, сформированный пользователем. Вывести на...

Найти минимальное число среди четных чисел одномерного массива
Дан одномерный массив целых чисел. Найти минимальное число среди четных чисел.

Найти минимальное значение среди сумм элементов всех строк матрицы
Дана целочисленная матрица размера 5 x 10. Найти минимальное значение среди сумм элементов всех...

1
272 / 188 / 173
Регистрация: 06.06.2012
Сообщений: 322
26.10.2012, 18:14 2
Лучший ответ Сообщение было отмечено Kirill Vologdin как решение

Решение

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
57
58
const
  n = 20;
 
type
  mas = array[1..n] of integer;
 
var
  a, b: mas;
  i, j: integer;
  min: integer;
 
procedure Print_mas(a: mas);
var
  i: integer;
begin
  for i := 1 to n do 
  begin
    write(a[i], ' ');
  end; writeln;
end;
 
procedure Random_mas(var a: mas);
var
  i: integer;
begin
  for I := 1 to n do
    a[i] := random(1001);
end;
 
procedure Minim(var b: mas);
var
  i: integer;
begin
  min := -maxint;
  j := 0;
  for i := 1 to n do
    if (a[i] < -min) and (a[i] mod 2 = 0) and (a[i] mod 3 <> 0)  then 
    begin
      j := j + 1; 
      min := -a[i]; 
      b[j] := a[i]; end; 
end;
 
begin//main program
  writeln('Исходный массив из элементов [1..1000]');
  random_mas(a);
  print_mas(a);
  minim(b);
  min := -maxint;
  writeln('Элементы из первого массива,удовлетворяющие правилу: четные и не делятся на 3:');
  for i := 1 to j do 
    write(b[i], ' '); writeln; writeln('Минимальный элемент который удовлетворяет правилу четные и не делятся на 3:');
  for i := 1 to j do
    if b[i] < -min then min := b[i];
  writeln(b[i]);
  
  
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.10.2012, 18:14
Помогаю со студенческими работами здесь

Определить сумму элементов массива, кратных трем
Помогите пожалуйста это реализовать Одномерный массив: N(50). Определить сумму элементов...

Определить сумму элементов массива N, кратных трем
Определить сумму элементов массива N, кратных трем (если не трудно можно блок схему)

Найти сумму элементов кратных трем
Привет всем! попалась задача по информатике и не решабельна, программа пишет ошибку помогите...

Найти минимальный элемент массива среди четных элементов, имеющих нечетные индексы
Люди, очень нужна помощь с Паскалем. В целочисленном массиве X(5;-8;7;9;6;3;8;1;2;-2) найти...


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

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

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