Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
sladkoegka03
15.10.2022 07:52 •
Информатика
Pascal. составить программу для вычисления количества положительных элементов матрицы q(4х9).
Показать ответ
Ответ:
HAHHSSAGSGAGS
04.10.2020 10:32
Program Podschet;
var a, i, j ,ans: integer;
begin writeln('Введите матрицу 4х9');
ans := 0;
for i := 1 to 4 do for j := 1 to 9 do begin read(a); if (a > 0) then inc(ans); end;
writeln(ans);end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Данилка20022002
30.07.2022 03:30
Объем видеопамяти равен 2,5 мбайта, глубина цвета — 16, разрешающая экрана монитора — 640×480 точек. найти максимальное количество страниц, которое можно использовать...
DIMAES0
21.02.2020 15:32
Объясните функции меню файла текстового редактора блокнот...
ruslanamaslanuc
21.02.2020 15:32
Создать бегущую строку по периметру в паскале...
resdo9988
20.05.2021 07:06
Впроцессе преобразования растрового графического изображения количество цветов уменьшилось с 65636 (да, именно 65636) до 16. его информационный объем уменьшился в...
karnastia
12.06.2020 07:49
Паскаль! , . хотя бы 1 1) создать массив в интервале [-5; 5]. вывести максимальный и минимальный элемент. вывести количество нулей. 2) ввести с процедуры 3 числа....
Школьник071
12.06.2020 07:49
Паскаль.1) ввести числа. вывести сумму их факториалов. 2)ввести коэффициент корней уравнения. вывести количество корней....
kasper121314
19.02.2020 04:40
Дан массив из n элементов. найти и вывести элементы этого массива, принадлежащие диапазону от а до в (а и в ввести с клавиатуры). язык программирования pascal...
Himop
06.01.2023 20:17
Сделать блок схему для кода fortran program testtt implicit none integer : : a(8,8), b(8,8), i, j, minimum, n, ind1, ind2 logical : : l data a/8,7,6,5,3,2,1,0, &...
vtnastya05
27.06.2020 02:15
Вчём разница между режимом отображения формул и режимом отображения значений...
hazina2
24.05.2022 09:52
Два текста содержат одинаковое количество символов. первый текст составлен в алфавите мощностью 65536 символов. второй текст в алфавите мощностью 16 символов. во...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a, i, j ,ans: integer;
begin writeln('Введите матрицу 4х9');
ans := 0;
for i := 1 to 4 do for j := 1 to 9 do begin read(a); if (a > 0) then inc(ans); end;
writeln(ans);end.