Дана вещественная матрица размерности n*m. Вывести номера строк, содержащих больше положительных элементов чем отрицательных. Ре
Дана вещественная матрица размерности n*m. Вывести номера строк, содержащих больше положительных элементов чем отрицательных. Решите пожалуйста на языке Delphi 7
Ответ 1) 1 первое условие говорит что Х не принадлежит отрезку АВ 2) 4 умножаем 12*256*128 - память в битах, делим на 8 получаем в байтах, делим на 1024 получаем килобайты 3) 2 16 символов можно закодировать в 4 бита т.е. 1/2 байта таким образом ответ 320 4) 1 5) 3 умножаем 3*96*68 делим на 8
Const n=10; var a:array[1..n] of integer; i:integer; begin Randomize; for i:=1 to n do begin a[i]:=random(51); write(a[i]:3); end; writeln; writeln('Пары соседних элементов с суммой > 50:'); for i:=2 to n do if a[i-1]+a[i]>50 then writeln(a[i-1]:3,' ',a[i]); end.
Пример: 12 34 23 1 12 3 1 42 30 36 Пары соседних элементов с суммой > 50: 34 23 42 30 30 36