Почему не работает программа? в любом случае выходит, что билет не счастливый. посмотрите, ,. program - id193273020210721 от Вика1774574747 21.07.2021 06:36

Question

Информатика: Почему не работает программа? в любом случае выходит, что билет не счастливый. посмотрите, ,. program primer ; var x,i,h1,h2,h3,h4,h5,h6,s1,s2 : integer ; begin write ( введите номер билета ); readln (x) ; h1: = x div 100000 ; h2: = x mod 100000 div 100000 ; h3: = x mod 100000 div 10000 ; h4: = x mod 100000 div 1000 ; h5: = x mod 100000 div 100 ; h6: = x mod 100000 div 10 ; s1: = h1+h2+h3 ; s2: = h4+h5+h6 ; if s1=s2 then writeln ( билет счастливый ) else writeln ( билет несчастливый ); readln ;

Вика1774574747 · Accepted Answer

// PascalABC.NET 3.2, сборка 1417 от 28.03.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*'-');
Writeln('Кол-во положительных: ',a.ElementsByRow.Where(x->x>1).Count)
end.

Пример
Количество строк в массиве: 5
Количество столбцов в массиве: 12
*** Исходный массив [5,12] ***
-64 16 -1 59 -63 -37 -54 28 -40 39 17 -84
89 8 38 56 -51 20 49 28 -90 -85 1 81
13 52 -10 15 28 -95 76 -77 -54 -27 33 -9
22 43 -40 14 58 19 -75 26 92 94 -59 87
-95 -8 65 -24 -50 62 26 -79 -85 18 -54 -16

Кол-во положительных: 32

MOGZ ответил