Формат ввода Вводится символ для проверки, затем - вопрос №16885611 от али5553 02.10.2021 17:39

Question

Информатика: Формат ввода Вводится символ для проверки, затем вводятся строки, пока не будет введена строка Вот вам и хата! Формат вывода Для каждой введенной строки (кроме последней, она служит признаком окончания ввода) найти сумму индексов, под которыми встречаются в ней символы для проверки. Вывести полученные суммы без повторений в произвольном порядке, каждую с новой строки. Если ни одной строки с указанным символом не было, то вывести -1. Пример 1 Ввод Вывод и Ни плетня, ни сарая порядочного где бы поставить

али5553 · Answer

// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
Writeln('*** Исходный массив ***');
var f:=MatrRandom(2,3,-99,99);
f.Println(8); Writeln(8*f.ColCount*'-');
var s:=f.Row(1).Sum;
Writeln('Сумма по 2й строке равна ',s);
Writeln('*** Полученный массив ***');
f.SetCol(2,f.Col(2).Select(t->t*s).ToArray);
f.Println(8)
end.

Пример
*** Исходный массив ***
     -74     -10      38
     -89      91     -18

Сумма по 2й строке равна -16
*** Полученный массив ***
     -74     -10    -608
     -89      91     288