Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
gonelep0bt6w
23.02.2022 04:46 •
Информатика
Дан двумерный массив. в каждой четной строке определить и вывести количество положительных элементов
Показать ответ
Ответ:
kobita
01.10.2020 22:43
Program n1;
type mas=array[1..100,1..100] of real;
var i,j:integer;
begin
writeln('введите кол-во столбцов');
readln(m);
writeln('введите кол-во строк');
readln(n);
for i:=1 to n do
for j:=1 to m do
readln(A[i,j]);
for i:=2 to n do
begin
writeln;
for j:=1 to m do
begin
if A[i,j]>0 then
write('строка',i,'положит числа',A[i,j]:7:3);
end;
i:=i+1;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
SerezhaYakovle
10.06.2022 12:17
Реши задачу.Черно-белое (без градаций серого) графическое изображение имеет размер 41 x 41 точек. Какой объёмпамяти займёт это изображение?...
jgfygbyt
02.09.2020 12:28
В задаче заранее известна формула, по которой необходимо преобразовать входную информацию в выходную. К какому типу будет относиться данная задача?...
daniilzagora
12.11.2022 12:45
На вход подается целое число X. Напишите функцию, возвращающую в программу, сумму цифр кратных 3. В паскале ABC....
вика36100
10.01.2022 03:39
С клавиатуры вводится целое число x. Необходимо найти наименьшую четную цифру числа. Если такой цифры нет, вывести - NO. Примечание: цифра 0 - четная. В паскале ABC....
09876нг8678
28.06.2022 13:37
Вариант 1 1. Решите уравнение: а) 12 – х2 =11; б)х2 – 10х =0. 2. Решите уравнения: а) х2 -5х -1=0; б) 2х2 -9х +4 =0. 3.Прямоугольный газон обнесен изгородью длиной 30м....
sakhnovavaleri1
25.10.2022 15:44
Виберіть рівняння, яке відповідає твердженню сума двох чисел дорівнює 12, причому одне з них на 3 більше за друге».Б x+(x+3) =12 В х + 3x = 12г(х+3)-1=12вх+3х=12А х-3х=12...
dikinova2017ozio8q
11.07.2021 13:27
Как культура отражает развитие древнеримскогообщества?Определи привилегии патрициев.Верных ответов: 2Несли военную службу.Имели право Издавать законы.Избирали народных...
Ann4121
27.09.2022 10:16
Напишите эссе Современна ли трагедия Моцарт и Сальери А.С.Пушкина ...
ruslankasaev
27.09.2022 10:16
Известно, что для развития плесени (микроскопических грибов) необходимы определеннШО условия. Святослав решил выяснить роль одного из таких условий, проведя следующийопыт....
Qwer3313qw
11.11.2022 05:16
Соатавить кроссворд на тему казахская литература...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
type mas=array[1..100,1..100] of real;
var i,j:integer;
begin
writeln('введите кол-во столбцов');
readln(m);
writeln('введите кол-во строк');
readln(n);
for i:=1 to n do
for j:=1 to m do
readln(A[i,j]);
for i:=2 to n do
begin
writeln;
for j:=1 to m do
begin
if A[i,j]>0 then
write('строка',i,'положит числа',A[i,j]:7:3);
end;
i:=i+1;
end.