1. Дана матрица размером 3х2. Найти произведение элементов матрицы. ( )
2. Дана матрица размером 4х4. Найти среднее значение элементов массива. Найти номер элемента массива совпадающего со средним. ( )
3. Дана матрица размером 3х5.Найти количество элементов матрицы больших 0, меньших 0 и равных 0. ( )
4. Дана матрица размером 4х4.Найти сумму чётных и нечётных элементов таблицы.
( )
5. Дана матрица размером 5х2. Разделить все элементы матрицы на минимальный элемент. ( )
6. Дана матрица размером 4*4. Найти наибольший элемент на побочной диагонали. Найти номер строки и номер столбца, на пересечении которых он находится. ( )
7. Дан двумерный массив А[6,9], заполненный случайным образом. Заменить чётные элементы массива на число 11. ( )
8.(ЕГЭ 2018) Дан целочисленный квадратный массив 10 x 10. Опишите на русском языке или на одном из языков программирования алгоритм вычисления суммы максимальных элементов из каждой строки. Напечатать значение этой суммы.
Program Princess;
uses crt;
var
M:Integer;
begin
writeln('');
writeln('* Вас приветствует ППП *');
writeln('* Программа Проверки Принцесс *');
writeln('* *');
writeln('* Сейчас узнаем... *');
writeln('');
writeln('1. Постелите постель для девушки');
writeln('2. Подложите горошину');
writeln('3. Дождитесь утра...');
writeln('4. Разбудите девушку');
writeln('5. Спросите: "Как Вам спалось?" ');
writeln('6. Введите в систему ответ девушки:');
writeln(' 0 - "Плохо, совсем не сомкнула глаз..." ');
writeln(' 1 - "Отлично выспалась" ');
readln(M);
writeln('');
writeln('* Итак... *');
if m=0 then
writeln('* Эта девушка - настоящая принцесса! *')
else
writeln('* Увы! Эта девушка - не принцесса! *');
writeln('');
end.
begin
var a:=ReadLines('m17.txt').JoinIntoString.ToIntegers;
a.Println;
var b:=a.Select((x,i)->Rec(x,i)).Where(x->x.Item1<0)
.Select(x->x.Item2).ToArray;
if b.Count<>2 then
Writeln('Количество отрицательных элементов не равно двум')
else begin
a:=SeqFill(b[0],0).Concat(a.Skip(b[0]).Take(b[1]-b[0]+1))
.Concat(SeqFill(a.Length-b[1]-1,0)).ToArray;
a.Println
end
end.
Тестовое решение:
23 14 7 15 0 13 -6 41 18 13 8 42 27 -11 3 19 10
0 0 0 0 0 0 -6 41 18 13 8 42 27 -11 0 0 0
Файл с исходными данными имеет имя m17.txt. Тестовый файл находится во вложении. Разбивка на строки сделана по 5 значений, но может быть совершенно произвольной. Также нет привязки именно к 17 числам, главное - чтобы отрицательных чисел было ровно два, иначе будет выдано сообщение о их неверном количестве.