Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
vladaua2005p06s4b
22.01.2020 11:44 •
Информатика
Определить количество отрицательных элементов матрицы
Показать ответ
Ответ:
КсюшаКотW
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 оценок)
Популярные вопросы: Информатика
matvienko14
19.06.2020 03:49
Вволшебной стране есть 8 городов, пронумерованных числами от 1 до 8, и несколько дорог, соединяющих эти города. в связи с наступлением зимы на каждой дороге введено...
kostyuchkova12
08.03.2021 19:30
14. соедините название программы с видом расширения ее файлов. a. ms power @ point б. paint в. блокнот г. ms word 1. *.png *.pptx 3. *.txt 4. *.docx а) а - 1, б-2,...
ivannaprokuror
08.11.2020 13:08
Даны следующие описания: type zi=(l,ma,mi,j,v,s,d); culoare=(galben, verde, albastru, violet); var i, j, k : integer; z: zi; c: culoare; x: real; какие из сдедующих...
Rоmаn844
13.11.2022 23:52
Какие основные блоки образуют структуру компьютера и как они связаны с этапами обработки информации?...
Саша11111111111уу
13.11.2022 23:52
Проанализируйте слова, расшифруйте и запишиите слово : жарко аудитория сноровка доказательство...
ApTeM098
13.11.2022 23:52
9. дано трехзначное число. определить: а) является ли сумма его цифр двузначным числом; b) является ли произведение его цифр трехзначных числом; c) больше ли числа...
go0d2312
16.01.2020 20:24
задание по информатике...
julyaloskutowaozd804
07.08.2022 10:33
1. Дан фрагмент программы: input(a)input(b)c =a+bprint(a, b)print(c) ...
Петрович05
17.01.2020 10:04
Программы апробацию как называются. Информатика...
Dilya0608
05.05.2022 16:55
Какую энергию нужно затратить, чтобы расплавить кусок меди массой 3 кг, взятый при температуре 15 °С? (С= 400Дж/кг℃, λ=2,1*105Дж/кг) ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.