Начертить блок-схему и написать программу для решения следующей задачи: Заполнить массив размерностью 15 целыми числами из промежутка от -5 до 6. вывести элементы массива и подсчитать количество отрицательных элементов массива
В будущем информация будет хранится на носителях с иным устройством хранения данных, но схожих с технологией твердотельных накопителей. Их емкость будет выше в сотни раз, а скорость записи и чтения намного быстрей. Информация будущего будет в основном получатся из физического мира, по технологии Биг Дата. Скажем каждый магазин будет иметь информацию о всех бывших покупателях, о их интересах, эмоциях, настроении. Так что при входе в магазин покупателю сразу предложат то что он вероятнее всего купит. Предложение будет сформировано на основании множества факторов, включая жесты и выражение лица покупателя. Передача информации будет основана на принципах квантовой запутанности и будет передаваться от источника к получателю без проводов и радиоволн, практически мгновенно.
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017 // Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('Количество строк в матрице:'); var m:=ReadInteger('Количество столбцов в матрице:'); Writeln('*** Исходная матрица A [',n,',',m,'] ***'); var a:=MatrRandom(n,m,1,10); a.Println(3); Writeln(3*a.ColCount*'-'); Writeln('*** Исходная матрица B [',n,',',m,'] ***'); var b:=MatrRandom(n,m,1,10); b.Println(3); Writeln(3*a.ColCount*'-'); Writeln('*** Матрица-результат С [',n,',',m,'] ***'); var c:=new integer[n,m]; for var i:=0 to n-1 do for var j:=0 to m-1 do c[i,j]:=a[i,j]+b[i,j]; c.Println(3) end.
Пример Количество строк в матрице: 4 Количество столбцов в матрице: 7 *** Исходная матрица A [4,7] *** 10 9 4 5 9 1 3 7 4 1 2 6 8 10 2 5 3 9 8 3 3 3 7 2 9 5 2 10
