Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.88/8: Рейтинг темы: голосов - 8, средняя оценка - 4.88
0 / 0 / 0
Регистрация: 14.12.2020
Сообщений: 4
1

Написать программу вычисления произведения последних цифр у элементов массива

21.01.2021, 10:49. Просмотров 1577. Ответов 3
Метки нет (Все метки)

Здравствуйте, нужна помощь в написании кода для этой программы, заранее большое спасибо
Дан массив из 10 целых чисел. Напишите программу вычисления произведения последних цифр у элементов массива кратных 3, но не кратных 7 среди двузначных чисел и замените этим числом максимальный нечетный элемент массива.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.01.2021, 10:49
Ответы с готовыми решениями:

Написать программу вычисления произведения чётных элементов одномерного массива
Здравствуйте! Обращаюсь к Вам за помощью. Нужно написать следующую программу: Буду благодарна за...

Написать рекурсивную программу вычисления произведения элементов од- номерного целочисленного массива A из n э
Сделал программу, но выдаёт ошибку((... Помогите исправить: type Mas=array of...

Дан массив размерностью 4х6. Написать программу вычисления произведения максимального и минимального элементов массива
Помогите пожалуйста составить программу Дан массив размерностью 4х6. Написать программу...

Дан массив A(NxM) с элементами вещественного типа. Написать программу для вычисления произведения элементов массива, мод
Дан массив A(NxM) с элементами вещественного типа. Написать программу для вычисления произведения...

3
Эксперт Pascal/Delphi
6429 / 4346 / 4655
Регистрация: 05.06.2014
Сообщений: 21,255
21.01.2021, 11:24 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
const
  maxn = 100;
 
var
  i, n, imax, max: integer;
  a: array [1..maxn] of integer;
 
begin
  n := 30;
  
  for i := 1 to n do
  begin
    a[i] := random(maxn);
    write(a[i]:8);
    
  end;
  for i := 1 to n do
    if odd(a[i]) then
    begin
      imax := i;
      max := a[i];
      break;
    end;
  for i := 1 to n do
    if (a[i] > max) and (a[i] mod 2 <> 0) then
    begin
      max := a[i];
      imax := i;
    end;
  writeln('Максимальный нечётный элемент ', max:8, ' стоит на ', imax, ' месте');
  for i := 1 to n do
  begin
    if (a[i] > 9) and (a[i] < 100) then //двухзначные
      if (a[i] mod 10 = 3) and (a[i] mod 10 < 7) then
        //кратных 3, но не кратных 7 
        a[i] := max;
    write(a[i]:8);
  end;
end.
1
Модератор
Эксперт Pascal/DelphiЭксперт NIX
5663 / 3384 / 2423
Регистрация: 22.11.2013
Сообщений: 9,507
Записей в блоге: 1
21.01.2021, 12:51 3
Лучший ответ Сообщение было отмечено ivan23344 как решение

Решение

ZX Spectrum-128,
не, так дело не пойдет, задание точно о чём-то другом
Цитата Сообщение от ivan23344 Посмотреть сообщение
вычисления произведения последних цифр у элементов массива кратных 3, но не кратных 7 среди двузначных чисел
Pascal
1
2
  p:=1;
  for i:=1 to n do if (Abs(a[i]) in [10..99]) and (a[i] mod 3=0) and (a[i] mod 7<>0) then p:=a[i] mod 10*p;
Цитата Сообщение от ivan23344 Посмотреть сообщение
замените этим числом максимальный нечетный элемент массива
Pascal
1
2
3
4
  im:=1;
  for i:=2 to n do if not Odd(a[im]) or Odd(a[i]) and (a[im]<a[i]) then im:=i;
  if Odd(a[im]) then a[im]:=p
  else WriteLn('Нет нечётных');
Добавлено через 10 минут
Или вариант, как в исходном сообщении, с предварительным поиском первого нечетного:
Pascal
1
2
3
4
5
  im:=n; while (im>0) and not Odd(a[im]) do Dec(im);
  if im>0 then begin
    for i:=im-1 downto 1 do if Odd(a[i]) and (a[im]<a[i]) then im:=i;
    a[im]:=p;
  end else WriteLn('Нет нечётных');
1
Эксперт Pascal/Delphi
6429 / 4346 / 4655
Регистрация: 05.06.2014
Сообщений: 21,255
23.01.2021, 10:56 4
bormant, ну уж, как понял, так понял задание.

Не по теме:

Мне простительно ;) Я уже старенький дедушка :)

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.01.2021, 10:56

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

Написать функцию вычисления произведения элементов массива
Написать функцию вычисления произведения элементов массива. В качестве входных параметров передать...

Написать процедуру вычисления произведения всех положительных элементов массива
Написать процедуру вычисления произведения всех положительных элементов массива из 10 целых чисел....

Составить программу вычисления произведения элементов массива B , если массив состоит из 10 элементов
составить программу вычисления произведения элементов массива B , если массив состоит из 10...

Составить программу вычисления произведения нечетных элементов массива
1) Составить программу вычисления произведения нечетных элементов массива С, если массив состоит...

Составить программу вычисления произведения четных элементов массива
Составить программу вычисления произведения четных элементов массива А

Составить программу для вычисления произведения Z положительных элементов массива (x(10))
составить программу для вычисления произведения Z положительных элементов массива (x(10)). значение...


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

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

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