Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/13: Рейтинг темы: голосов - 13, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 24.09.2019
Сообщений: 4
1

.Вывести на экран элементы массива кратные 3

22.10.2019, 22:13. Просмотров 2422. Ответов 1
Метки нет (Все метки)


Элементы массива: 4,-5,-6,3,0,-2,8,-3,1
1.Вывести на экран элементы массива кратные 3
2.Найти суммму нечетных элементов массива
3.Вычислите значения выражения: min^2-max


Элементы массива: -4,5,-6,0,1,-2,8,-5,-1
4.Вычислите среднее арифметическое наибольшего и наименьшего элементов массива
5.Вывести на экран номера элементов массива, икоторые при делении на 3 дают в остатке 2
6.Отсортировать массив по убыванию
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.10.2019, 22:13
Ответы с готовыми решениями:

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

Дан целочисленный массив А[1.5, 1.3]. Вывести на экран элементы массива, кратные 5 и их индексы
59. Дан целочисленный массив А. Вывести на экран элементы массива, кратные 5 и их индексы

Выбрать из матрицы все элементы кратные 3, вывести их на экран и подсчитать их количество
сформировать и вывести матрицу размером 4х4, содержащую случайные числа в интервале от 1 до 20....

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

__________________
Помогаю в написании студенческих работ здесь.
1
2326 / 743 / 543
Регистрация: 15.01.2019
Сообщений: 2,317
23.10.2019, 08:31 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
program zadanie1;
const
  n = 9;
var
  a: array[1..n] of integer = (4,-5,-6,3,0,-2,8,-3,1); // Переменная для хранения массива.
  i: integer; // Вспомогательная переменная для организации цикла.
  sum: integer; // Переменная для хранения значения суммы элементов.
  minelem: integer; // Переменная для хранения значения минимального по значению элемента.
  maxelem: integer; // Переменная для хранения значения минимального по значению элемента.
begin
  Writeln('Исходный массив:');
  for i:= 1 to n do
    write(a[i]:5);
  Writeln;
  Writeln('Элементы массива кратные 3:');
  for i:= 1 to n do
    if a[i] mod 3 = 0 then
      write(a[i]:5);
  Writeln;
  sum:= 0;
  for i:= 1 to n do
    if not(a[i] mod 2 = 0) then
      sum:= sum + a[i];
  Writeln('Сумма нечетных элементов массива: ', sum);
  minelem:= a[1];
  for i:= 2 to n do
    if a[i] < minelem then
      minelem:= a[i];
  Writeln('Элемент массива с минимальным значением: ', minelem);
  maxelem:= a[1];
  for i:= 2 to n do
    if a[i] > maxelem then
      maxelem:= a[i];
  Writeln('Элемент массива с максимальным значением: ', maxelem);
  Writeln('Значение выражения min^2 - max: ', minelem*minelem - maxelem);
  Readln;
end.
Добавлено через 17 минут
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
program zadanie2;
const
  n = 9;
var
  a: array[1..n] of integer = (-4,5,-6,0,1,-2,8,-5,-1); // Переменная для хранения массива.
  i,j: integer; // Вспомогательные переменные для организации циклов.
  minelem: integer; // Переменная для хранения значения минимального по значению элемента.
  maxelem: integer; // Переменная для хранения значения минимального по значению элемента.
  tmp: integer;  // Промежуточная переменная для организации сортировки элементов массива.
begin
  Writeln('Исходный массив:');
  for i:= 1 to n do
    write(a[i]:5);
  Writeln;
  minelem:= a[1];
  for i:= 2 to n do
    if a[i] < minelem then
      minelem:= a[i];
  Writeln('Элемент массива с минимальным значением: ', minelem);
  maxelem:= a[1];
  for i:= 2 to n do
    if a[i] > maxelem then
      maxelem:= a[i];
  Writeln('Элемент массива с максимальным значением: ', maxelem);
  Writeln('Среднее арифметическое из элементов с максимальным и минимальным значениями: ', ((maxelem + minelem)/2):0:2);
  Writeln('Индексы элементов массива которые при делении на 3 дают в остатке 2:');
  for i:= 1 to n do
    if a[i] mod 3 = 2 then
      write(i:5);
  Writeln;
  for i:= 1 to n-1 do
    for j:= i+1 to n do
      if a[i] < a[j] then
        begin
          tmp:= a[i];
          a[i]:= a[j];
          a[j]:= tmp;
        end;
  Writeln('Массив, отсортированный по убыванию:');
  for i:= 1 to n do
    write(a[i]:5);
  Writeln;
  Readln;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.10.2019, 08:31

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

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

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

Вывести на экран все отрицательные элементы массива кратные 13
В эту тему я плохо &quot;въехал&quot;, массивы и интервалы с ними, вопщем прошу написать ответ такой задачи:...

Из массива вывести в другой массив числа кратные 5 и вывести их на экран
Как дописать программу школьного уровнч? Program n_2; var i: integer; a: array of integer;...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.