Напишите, , программу на с++ входные данные вводятся с клавиатуры по запросу. датчики псевдослучайных чисел использовать запрещается. выходные данные должны выводиться на экран с пояснениями. проверить и продемонстрировать работу программы на полном наборе тестов, в том числе с ошибочными входными данными. 1) дан массив a0, a1, a2,…, an-1. определить произведение значений положительных элементов массива, лежащих между элементом с минимальным по абсолютной величине значением и элементом с номером n/2. 2) в заданной матрице найти сумму элементов, принадлежащих главной диагонали, и произведение элементов, принадлежащих побочной диагонали.

👇

Ответ:

MilanaPopovych

19.07.2021

Задание выполнено, с условием "лежащих между элементом с минимальным по абсолютной величине значением и элементом с номером n/2. " - то бишь не включая позицию с номером n/2 и с минимальным, ибо есть слово "между". Если нужно по другому, пишите. Здесь несколько символом подправить только, для выполнения по другому.
Напишите, , программу на с++ входные данные вводятся с клавиатуры по запросу. датчики псевдослучайны

Напишите, , программу на с++ входные данные вводятся с клавиатуры по запросу. датчики псевдослучайны

4,5(89 оценок)

Открыть все ответы

Ответ:

AmooQ

19.07.2021

// PascalABC.NET 3.3, сборка 1549 от 17.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
var r:=Range(100,1000);
Writeln('Сумма четных: ',r.Where(x->x.IsEven).Sum);
Writeln('Произведение нечетных: ',
r.Where(x->x.IsOdd).Aggregate(BigInteger(1),(x,y)->x*y))
end.

Результат
Сумма четных: 248050
Произведение нечетных: 36966544481545882391823230067805385433230065368829576574915631961875951438749314875520891958773465683198309929571713227368698968335498279329362186811130459340459701708143628528300666430241499963363995156875472920823879073796270530674091365457301367694608396460427864525856348256854709381753098272866558646536629626322781887765489939455189437187612366035802205337138797639784505362746964525946343706655765053639253274426077913592271079783658672906924798929301517243147811305368104203869922649498420017010079861449087671086945458864075701800348571856363660191891005745473487285185093263826285985161291672009840401500648116978749473368664914039649974635642316727953613512087059513022266150683907968562889468475751462634414790601916842157202699257750637933476610759209266207736659346632336154863491811161547515391373090783158239924403943495793328563207072814564054863234093687597907376741512012744430337566475185020879095658879920498365311358232252688878619532793045747038932448911025039177711271956296398164256480905110102487991832871736322981910580412208741937654427051439114361588088330674072568693330290186189385005707253104742148887065855866777951156097027659674751631779798799470881931483745574951171875

4,7(100 оценок)

Ответ:

РЕЛАД

19.07.2021

// PascalABC.NET 3.3, сборка 1549 от 17.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
var n:=ReadInteger('Количество строк в матрице:');
var m:=ReadInteger('Количество столбцов в матрице:');
Writeln('*** Исходная матрица [',n,',',m,'] ***');
var a:=MatrRandom(n,m,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
var (i,k):=(0,-1);
foreach var c in a.Cols do
    if c.Where(e->e.IsEven).Count<5 then k:=i
    else i+=1;
if k>=0 then begin
    Writeln('*** Матрица - результат [',n,',',m+1,'] ***');
    SetLength(a,n,m+1);
    for var c:=a.ColCount-1 downto k+1 do
      a.SetCol(c,a.Col(c-1));
    a.SetCol(k+1,ArrFill(a.RowCount,0));
    a.Println(4)
    end
else Writeln('Нет столбцов с количеством четных элементов, меньшим 5')
end.

Пример
Количество строк в матрице: 8
Количество столбцов в матрице: 6
*** Исходная матрица [8,6] ***
38 -44 50 20 -85 -92
15 -43 43   6 -80 63
76   2 -63 32 14 -37
-78 -30 94 -45 44 -25
-74 30 15 -56 -41 -88
72 -15 -74 38 -47 -76
11 -75 -2 70 35 65
-52 -42   9 94 59 -28

*** Матрица - результат [8,7] ***
38 -44 50 20   0 -85 -92
15 -43 43   6   0 -80 63
76   2 -63 32   0 14 -37
-78 -30 94 -45   0 44 -25
-74 30 15 -56   0 -41 -88
72 -15 -74 38   0 -47 -76
11 -75 -2 70   0 35 65
-52 -42   9 94   0 59 -28

4,5(82 оценок)

Это интересно:

Взаимоотношения

23.05.2020

Хитрость как искусство: Как стать хорошим лжецом...

Компьютеры-и-электроника

05.11.2022

Хочешь создать свою банду в GTA San Andreas? Просто следуй этим шагам!...

Стиль-и-уход-за-собой

14.02.2023

Контроль волос африканского стиля: советы и инструкции...

Философия-и-религия