Задан массив a. Если максимальный и минимальный элементы расположены между первым и последним нулем, то все положительные элементы массива увеличить в 10 раз.
begin var (m,n):=ReadInteger2('Количество строк и столбцов в массиве:'); Writeln('*** Исходный массив ***'); var a:=MatrRandom(m,n,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); var k:=ReadInteger('k='); if a.ElementsByRow.Any(t->t>k) then Writeln('Есть') else Writeln('Нет') end.
// PascalABC.NET 3.0, сборка 1150 от 22.01.2016 begin var n:=ReadInteger('Количество элементов массива '); var m:=ArrRandom(n,-50,50); m.Println(', '); var a:=0; var b:=0; var c:=0; for var i:=0 to n-1 do begin if m[i]>0 then a:=a+m[i]; if m[i]<m[b] then b:=i; if m[i] mod 5 = 0 then Inc(c) end; var w:=(b+1)+a/(c+1); WritelnFormat('A={0}, B={1}, C={2}, W={3}',a,b+1,c,w); Writeln('Принято, что элементы массива нумеруются от единицы') end.
Тестовое решение: Количество элементов массива 13 -43, -15, 18, -8, -13, -47, -36, 6, -16, 45, 33, 33, -24 A=135, B=6, C=2, W=51 Принято, что элементы массива нумеруются от единицы
Внимание! Если программа не работает, обновите версию!
№1
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
Writeln('Количество отрицательных значений ',a.Where(t->t<0).Count);
end.
Пример
n= 15
3 39 3 2 43 43 -37 -2 -50 3 -25 15 -7 4 21
Количество отрицательных значений 5
№2
begin
var (m,n):=ReadInteger2('Количество строк и столбцов в массиве:');
Writeln('*** Исходный массив ***');
var a:=MatrRandom(m,n,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
var k:=ReadInteger('k=');
if a.ElementsByRow.Any(t->t>k) then Writeln('Есть')
else Writeln('Нет')
end.
Пример
Количество строк и столбцов в массиве: 5 8
*** Исходный массив ***
-9 48 -98 -35 -33 -29 44 -32
-33 -48 -62 11 45 53 52 90
-96 -1 68 -21 15 -72 -78 -28
44 15 -53 -33 -27 89 -60 -49
28 -73 -99 81 23 -9 -93 -66
k= 92
Нет