// 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.
#include <iostream>
using namespace std;
int n, t = 0, k;
int main()
{
cin >> n >> k;
int a[n];
for (int i = 0; i < n; i++)
{
cin >> a[i - t];
if (i + 1 == k)
t = 1;
}
for (int i = 0; i + 1 < n; i++)
cout << a[i] << " ";
}