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

Дан массив из десяти целых чисел {2; -3; 5; 0; 7; -4; 1; -1; -6; 9}. найти количество положительных элементов массива, не превышающих числа «7».

Показать ответ
Ответ:
TurboDan
TurboDan
08.10.2020 19:18
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=Arr(2,-3,5,0,7,-4,1,-1,-6,9); a.Println;
  Writeln('Положительных элнементов, не превыщающих 7: ',
    a.Where(t->t.Between(1,7)).Count)
end.

Дан массив из десяти целых чисел {2; -3; 5; 0; 7; -4; 1; -1; -6; 9}. найти количество положительных
0,0(0 оценок)
Ответ:
daniilstepanov2
daniilstepanov2
08.10.2020 19:18
ЯЗЫК: С++

Если считать, что 7 не может быть больше 7, т.к оно равнозначное, то элементов 3. Если так не считать и сделать условие <= (меньше либо равно), то элементов 4.

int main(){ setlocale(LC_ALL, "Ru"); int arr[10] = { 2,-3,5,0,7,-4,1,-1,-6,9 }; const int size1 = sizeof(arr) / sizeof(arr[0]); int i = 0,k=0; for (i; i < size1; i++) { if (arr[i] > 0 && arr[i] < 7) { k++; } } cout << "Чисел, которые не более 7: " << k << endl; system("pause");
return 0;}
Дан массив из десяти целых чисел {2; -3; 5; 0; 7; -4; 1; -1; -6; 9}. найти количество положительных
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота