(Pascal)Дан двумерный целочисленный массив 1) найти максимальный элемент массива не превосходящий данного числа N. 2)найти макс
(Pascal)Дан двумерный целочисленный массив 1) найти максимальный элемент массива не превосходящий данного числа N. 2)найти максимальный элемент и его положение в массиве.
<em>// PascalABC.NET 3.2, сборка 1374 от 10.01.2017</em> <em>// Внимание! Если программа не работает, обновите версию!</em>
begin var m:=ReadInteger('Количество строк в массиве:'); var n:=ReadInteger('Количество столбцов в массиве:'); Writeln('*** Исходный массив [',m,',',n,'] ***'); var a:=MatrRandom(m,n,-50,50); a.Println(4); Writeln(4*a.ColCount*'-'); var b:=a.Rows.SelectMany(x->x).ToArray; var nn:=ReadInteger('1. Введите число N:'); Write('Максимальный из элементов, не превосходящий N'); if nn<b.Min then Writeln(', не существует') else Writeln(', равен ',b.Where(x->x<=nn).Max); Write('2. Максимальный элемент в массиве ['); var i:=b.IndexMax; Writeln(i div n+1,',',i mod n+1,']=',a[i div n,i mod n]) end.
<u>Пример</u> Количество строк в массиве: 5 Количество столбцов в массиве: 9 *** Исходный массив [5,9] *** -18 -13 16 23 -14 -30 -12 -2 -2 -34 11 -47 -35 20 44 29 -36 46 2 -28 -35 -6 38 -9 -2 8 -10 3 16 5 -20 8 5 48 7 -33 -25 3 30 -35 -10 22 -11 42 -44 ------------------------------------ 1. Введите число N: 31 Максимальный из элементов, не превосходящий N, равен 30 2. Максимальный элемент в массиве [4,7]=48
Program Test; Var N,n1,tst,i,count:integer; Begin readln(N); while n1<N do begin n1:=n1+1; count:=0; for i:=1 to n1 do begin if n1 mod i = 0 then inc(count); end; if n1>1 then if count=2 then writeln(n1); end; <span>End.</span>
//<em>ax</em><em> + </em><em>b</em><em> = 0,</em><span> где </span><em>а и b</em><span> – любые числа. var a,b,x:real; //инициализирует переменные a,b и x типа real, с плавающей точкой begin; //начало программы readln(a); //ввод a readln(b); //ввод b x:=-b/a; //находим корень writeln(x); //выводим корень end. //конец программы</span>