Question

Найти в двумерном массиве целых чисел размером 3х4 номера отрицательных элементов (вывести их на экран), если таких нет, то сообщить об этом.

Answer 1

// PascalABC.NET 3.2, сборка 1482 от 12.06.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln('*** Исходный массив ***');
  var a:=MatrRandom(3,4,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var s:=a.ElementsWithIndexes.Where(z->z[0]<0);
  if s.Count=0 then Writeln('Нет отрицательных элементов')
  else begin
    Write('Отрицательные элементы: ');
    s.Select(x->Format('a[{0},{1}]',x[1]+1,x[2]+1)).Println
    end
end.

Пример
*** Исходный массив ***
 -62  13 -44  78
 -19  73  92 -61
  47 -13   3  43
----------------
Отрицательные элементы: a[1,1] a[1,3] a[2,1] a[2,4] a[3,2]

Answer 2

Только что запустил на обновлённой вчера версии. Вчерашняя - уже старая?

Answer 3

Я не знаю, какая у Вас вчерашняя, номер сборки написан.

Answer 4

Вчера вечером было обновление, в нем поменялся формат расширения ElementsWithIndexes(), а также появилось расширение Between()

Answer 5

Ну да, у меня старая, от 10 числа...

Answer 6

вместо (x>=a) and (x<=b) для базовых типов можно писать x.Between(a,b)