Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Ви2006ка
17.02.2020 19:23 •
Информатика
Определить количество отрицательных элементов матрицы
Показать ответ
Ответ:
GloSef
10.07.2020 13:48
Const n=5;
Var a:array [1..n,1..n] of integer; i,j,k:integer;
Begin
for i:=1 to n do
for j:=1 to n do begin
readln(a[i,j]);
if a[i,j]<0 then inc(k); end;
writeln(k);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
anhelinaivancha
29.11.2021 07:14
ответьте на вопросы. 1) какой будет двойственная формула для формулы: ((а → b) v (c & a)) ~ (b → a)? 2) является ли высказыванием формула: a & (∀ x p(x, y) v ∃y p(x,...
Alchimick
12.01.2023 21:56
Построить цепочку из №20 с циклическим алгоритмом по схеме указанной в конспекте...
karabanovaann
08.02.2022 02:04
Надо 30 1 реши .черно-белое (без градаций серого) графическое изображение имеет размер 25×25 точек. какой объём памяти займёт это изображение? ответ: бит.2 определи количество...
NeYch999
16.12.2020 04:15
Иван и сергей совместно используют канал доступа в интернет с пропускной мбайт в секунду. система нагрузки настроена таким образом, что если в данный момент времени канал использует...
dianadiii
01.08.2021 13:56
Робот движется по клетчатому полю в соответствии с заданной программой. для записи программы используется следующая система команд: 1)u# - сместиться вверх на # клеток. 2)d#...
tasher22843
02.04.2023 05:09
На карте памяти, объемом xx mbyte сохраняют изображения размера 2048x1024 пикселей и без сжатия. при сохранении каждого изображения в память записываются только коды цветов...
поля1315
21.05.2020 19:51
Найдите минимальное xx, но не меньшее 2, такое, что если результат вычисления выражения 273_{10}*x+1273 10 ∗x+1 перевести в двоичную систему счисления, то запись будет содержать...
annabragina19
15.04.2020 09:45
Определите объем памяти, занимаемый несжатым изображением с заданными параметрами. размеры - 3 х 3 дюймов разрешение - 2400 dpi количество цветов - 16 млн....
lovelyre
21.01.2022 07:06
начальное состояние - 0 движетесь в цикле по строке, если нашли : или ; переходим в состояние 1 (нашли начальный символ) - проверяем минус, пока найден минус идём по строке,...
Deniska7771
16.02.2023 14:29
Определи трассировочную таблицу соответствующими данной блок схеме https://cdn2-kt-vdc.bilimland.kz/upload/online_mektep/lesson/f80dc387fd45e0627ed19e0bf63d9184/47.png?v1611574918965...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Var a:array [1..n,1..n] of integer; i,j,k:integer;
Begin
for i:=1 to n do
for j:=1 to n do begin
readln(a[i,j]);
if a[i,j]<0 then inc(k); end;
writeln(k);
end.