Дана матрица 4x3 найти максимальный элемент в каждом столбце, с внешним файлом

256

415

Посмотреть ответы 1

Ответы на вопрос:

nazi33

Информатика

4,5(38 оценок)

Pascalabc.net 3.4.2, сборка 1881 от 19.11.2018 внимание! если программа не работает, обновите версию!

begin

var n : = readlninteger('n=');

var r : = new integer[n];

repeat

var a : = readlnstring.tochararray;

if a.length < > n then break;

if a.where(c -> c = '+').count = 1 then

inc(r[a.indexof('+')])

until false;

r.transform(t -> t > = 0.07 * n ? 1 : 0);

r.numerate.where(t -> t[1] = 1).select(t -> t[0]).println

end.

пример

(окончание ввода - строка длины отличной от n)

n= 5

--+--

1 2 3 5

150 000+ пользователей

Оформить подписку