В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
MALsEeE1
MALsEeE1
18.04.2023 03:12 •  Информатика

*) program 78; var i, m,k:integer:
constar array 1.17) of integer - (-17,
-3, -6,0, 1, 2);
begin
3:0 0; :-)
for 1:-1 to 2 do
begin
If a[i]>0 then : m:=m+1;
IF a[i]<0 then n:=n+1;
If a[i]=0 then : k:=k+1
and:
Writeln (m= m
End


*) program 78; var i, m,k:integer: constar array 1.17) of integer - (-17, -3, -6,0, 1, 2); begin 3:0

Показать ответ
Ответ:
kkostova
kkostova
05.01.2021 16:15

i       1   2   3   4   5   6   7

a[i]  -1   7   3  -6   0   1   2

i=1 n=0 m=1 k=0

i=2 n=1 m=1 k=0

i=3 n=1 m=2 k=0

i=4 n=1 m=3 k=0

i=5 n=1 m=3 k=1

i=6 n=2 m=3 k=1

i=7 n=3 m=3 k=1

m=3 n=3 k=1

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота