Задан двухмерный массив целых чисел а размером n на m состоящих из нулей и единиц. сформировать одномерный массив в[k]. состоящих из единиц и подсчитать их количество
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017 // Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('Количество строк в массиве:'); var m:=ReadInteger('Количество столбцов в массиве:'); Writeln('*** Исходный массив [',n,',',m,'] ***'); var a:=MatrRandom(n,m,0,1); a.Println(2); Writeln(2*a.ColCount*'-'); var b:=a.ElementsByRow.Where(x->x=1).ToArray; var k:=b.Count; b.Println; Writeln('k=',k) end.
Пронумеруем исходные утверждения. 1) круг не белый и не зеленый. 2) синяя фигура лежит между ромбом и красной фигурой. 3) треугольник не синий и не зеленый. 4) квадрат лежит между треугольником и белой фигурой. Теперь рассмотрим каждое из них. Из (1) круг не белый, а из (4) не белые также квадрат и треугольник. Следовательно, белым может быть только ромб. 5) Если ромб белый, то он не зеленый. Не зеленые также круг (1) и треугольник (3). Тогда зеленый квадрат. 6) Если квадрат зеленый (5), то он не синий и не красный. Не синие также ромб (2) и треугольник (3). Следовательно, синий круг. 7) Треугольник красный, поскольку остальные цвета уже распределены.
ответ: Квадрат зеленый, круг синий, ромб белый, треугольник красный.
1) day integer (PK) month varchar(10) (PK) temperature integer falls varchar(50) wind varchar(50)
3) дату всетаки лучше задавать датой, а не число отдельно, месяц отдельно, условий на них писать море год не указан, так что в следующем году ждут проблемы не наложены ограничения на поля Осадки и Ветер, потому в них может быть написано что угодно, лучше все возможные варианты закинуть в отдельные таблицы
2) не одна таблица а система таблиц конечно же Автор id integer (PK) name vaechar(50)
Издательство id integer (PK) name vaechar(50)
Книга id integer (PK) name vaechar(50) language varchar(50) id_publisher integer (FK)
Произведение id integer (PK) name vaechar(50) original_name varchar(50) id_auther integer (FK)
Произведения в книге id integer (PK) id_book integer (FK) id_proizvedenie integer (FK)
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Количество строк в массиве:');
var m:=ReadInteger('Количество столбцов в массиве:');
Writeln('*** Исходный массив [',n,',',m,'] ***');
var a:=MatrRandom(n,m,0,1);
a.Println(2); Writeln(2*a.ColCount*'-');
var b:=a.ElementsByRow.Where(x->x=1).ToArray;
var k:=b.Count; b.Println;
Writeln('k=',k)
end.
Пример
Количество строк в массиве: 5
Количество столбцов в массиве: 12
*** Исходный массив [5,12] ***
0 0 1 1 1 1 1 1 0 0 1 0
0 1 1 1 0 0 1 1 1 0 1 0
1 0 0 1 0 1 0 0 0 0 0 0
1 0 0 0 0 1 0 1 0 0 1 0
1 1 1 1 0 1 1 0 1 0 0 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
k=29