Дан массив из десяти целых чисел {2; -3; 5; 0; 7; -4; 1; -1; -6; 9}. Найти количество...

Question

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

Answer 1

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.

---

Answer 2

ЯЗЫК: С++

Если считать, что 7 не может быть больше 7, т.к оно равнозначное, то элементов 3. Если так не считать и сделать условие <= (меньше либо равно), то элементов 4.<br>
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");<br> return 0;}

Comments

необходимо на языке Паскаль

---

Тогда смотри выше..там уже написали..

---

"Язык С++ или искусство длинно и сложно писать простые задачи" ))) Кстати, "не превышающих" означает "не больше", т.е. "меньше или равно".

---

опечатался..с кем не бывает )
Мне кажется, что на паскале сейчас мало кто пишет..и то потому, что их научили этому в школьные годы..во всяком случае это неважно. Каждый язык хорош по своему :)

---

На паскале мало пишут где?

---

В школах, к примеру, на нем пишут примерно 3/4 всех обучающихся. Школы ведь не профессиональных программистов выпускают, верно?

---

И когда Вы пишете, что каждый язык хорош по-своему, Вы правы, но частично. Потому что на самом деле каждый язык хорош, когда он на своем месте. Место С++ - это не простенькие школьные задачки.

---

Видимо учитель моей школы был выше уровнем, чем многие другие в России, ибо нас учили ООП на с++ на пару с ассемблером..на котором мы и решали "простенькие" школьные задачки..и не только.