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

0 голосов
63 просмотров

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


Информатика (93 баллов) | 63 просмотров
Дан 1 ответ
0 голосов
Правильный ответ
// 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);<br>  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]
(150k баллов)
0

еееее, спасибо спас просто

0

*** Исходный массив ***
33 41 -68 27
49 58 -61 -38
89 -9 -79 -2
----------------
Нет отрицательных элементов
Что-то не так...

0

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

0

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