// PascalABC.NET 3.3, сборка 1590 от 03.12.2017 // Внимание! Если программа не работает, обновите версию!
begin Writeln('*** Исходная матрица ***'); var a:=MatrRandom(4,6,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); var s:=a.ElementsByRow; // последовательность не хранится в памяти Writeln('Max=',s.Max,', min=',s.Min) end.
// F# [<EntryPoint>] let main argv = let elements = System.Console.ReadLine().Split(' ') |> Seq.map (fun x -> System.Int32.Parse x) |> Seq.mapi (fun i x -> (x, i)) |> Seq.where (fun (x, i) -> x % 2 = 0) if elements |> Seq.length > 0 then System.Console.WriteLine("{0} {1}", elements |> Seq.last |> fst, (elements |> Seq.last |> snd) + 1) else System.Console.WriteLine("No results") System.Console.ReadKey true |> ignore 0
nuralievelsh
29.02.2020
1. Поскольку подавляющее большинство площадок выдвигают требование, которое подразумевает, что описание должно включать в себя определенное количество символов. Владельцам сетевых проектов приходится придерживаться этого общего правила и стараться кратно, но информативно преподнести информацию для пользователей.
2. Максимальное соответствие тематике сайта. Не стоит писать о том, чего невозможно обнаруживать на страницах Вашего сайта, придерживайтесь логики, стараясь точно описать цели и задачи с грамотной расстановкой ключевых запросов.
3. При составлении описания категорически рекомендуется исключить аббревиатуры, сокращение слов и общепринятых вводных словосочетаний.
4. Лишний контроль после описания позволит устранить орфографические или пунктуационные ошибки. В конце предложений не стоит забывать проставлять точки. Предложения должны быть логически завершены.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Дана матрица 4 на 6 найти минимальный и максимальный элемент в этой матрице. !
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('*** Исходная матрица ***');
var a:=MatrRandom(4,6,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
var s:=a.ElementsByRow; // последовательность не хранится в памяти
Writeln('Max=',s.Max,', min=',s.Min)
end.
Пример
*** Исходная матрица ***
55 8 -53 99 55 75
48 13 -57 -81 -82 94
22 7 53 14 -10 -21
-73 -55 -39 79 1 -35
Max=99, min=-82