Free Pascal
var
a : array of array of integer;
b : array of integer;
s, i, j, n, m : integer;
begin
writeln('Введите кол-во строк:');
readln(m);
writeln('Введите кол-во столбцов:');
readln(n);
randomize;
setlength(a, n);
setlength(b, m);
for i:=0 to n-1 do
setlength(a[i], m);
for j:=0 to m-1 do begin
s:=0;
for i:=0 to n-1 do begin
a[i,j] := random(50) - 25;
if a[i,j] <0 then inc(s);
write(a[i, j], ' ');
end;
b[j]:=s;
writeln();
end;
writeln('--------------------------');
for j:=0 to m-1 do
writeln(j+1,' строка = ', b[j]);
end.
Твоя программа берет строку, а затем разбивает ее на слова(словом считается любая последовательность, признак конца такой последовательности - пробел), выводит программа слова в квадратных скобках, каждое слово на новой строке.
Теперь давайте детально.
Название подключенных директив пропали, но это не беда, посмотрев код можно понять, что это была директива iostream и директива string.
iostream нам нужна для ввода/вывода, а string для работы со строками.
using namespace std используем для подключения пространства имён.
int main() - основная функция программы
string query - объявляем переменную типа string с именем query
getline(cin, query) считываем строку в переменную query
string word - cоздаем переменную типа string с именем word
for (int i = 0; i < query.size(); ++i) - запускаем цикл с параметром, который будет идти от 0 до размера строки(для увеличения i используется преинкремент)
В нашем цикле расположен условный оператор, в нём проверяется каждый символ, если это пробел, то мы выводим нашу переменную word на экран в квадратных скобочках + "обнуляем" переменную word, в ином случае мы добавляем к переменной word символ.
В конце программы мы выводим последнее значение word в квадратных скобках и ставим переход на новую строку (cout << '[' << word << ']' << endl;)
