Другие языки программирования и технологии
эм...кто силён в массивах??? :) помогите, пожалуйста,бедной студентке.. :)
Имеется массив А из N произвольных чисел - А(N), среди которых есть положительные, отрицательные и равные нулю. Составить программу, решающую задачу в соответствии с вариантом: 1)Вычислить сумму всех четных положительных чисел. Например, если А = {2, 4, –3, 0, 5, 1, 6}, результат: 2 + 4 + 6 = 12. 2)Вычислить количество положительных и нулевых чисел и сумму отрицательных. Например, если А = {2, 4, –3, 3, 5, –2, 1}, результат: положительных чисел 5 (2, 4, 3, 5, 1), нулевых – 0 (нет), сумма отрицательных –5 (–3 + –2 = –5). 3)Найти максимальное и минимальное числа. Напечатать те элементы массива, которые в массиве находятся между ними. Так, если А = { 2, 4, –3, 0, 2, 5, –2}, результат: –3, 0, 2, 5 (max = 5, min = –3). 4)Напечатать сумму элементов предшествующих максимальному числу. Так, если А = { 3, 4, 9, 2, 11, –12, 3}, результат: 3 + 4 + 9 + 2 = 18. 5)Напечатать сумму элементов предшествующих минимальному числу. Так, если А = { 3, 4, 9, 2, –5, 2, 3}, результат: 3 + 4 + 9 + 2 = 18.
Вот первые три задачи. Дальше просто пальцы устали набивать.. .
; #1: Sum of even positives
(display (apply + (map (lambda (x) (if (and (even? x)(> x 0)) x 0)) '(2 4 -3 0 5 1 6))))(newline)
; #2.1: number of positives and zeros
(display (apply + (map (lambda (x) (if (>= x 0) 1 0)) '(2 4 -3 3 5 -2 1))))(newline)
; #2.2: sum of negatives
(display (apply + (map (lambda (x) (if (< x 0) x 0)) '(2 4 -3 3 5 -2 1))))(newline)
; #3: max and min numbers, numbers between
(let ((data '(2 4 -3 0 2 5 1 -2)))
(let ((Max (apply max data)) (Min (apply min data)))
(begin
(display "Max: ")(display Max)(newline)
(display "Min: ")(display Min)(newline)
(display "Between: ")
(display
(if (> (length (member Max data)) (length (member Min data)))
(reverse (member Min (reverse (member Max data))))
(reverse (member Max (reverse (member Min data))))))(newline))))
; #1: Sum of even positives
(display (apply + (map (lambda (x) (if (and (even? x)(> x 0)) x 0)) '(2 4 -3 0 5 1 6))))(newline)
; #2.1: number of positives and zeros
(display (apply + (map (lambda (x) (if (>= x 0) 1 0)) '(2 4 -3 3 5 -2 1))))(newline)
; #2.2: sum of negatives
(display (apply + (map (lambda (x) (if (< x 0) x 0)) '(2 4 -3 3 5 -2 1))))(newline)
; #3: max and min numbers, numbers between
(let ((data '(2 4 -3 0 2 5 1 -2)))
(let ((Max (apply max data)) (Min (apply min data)))
(begin
(display "Max: ")(display Max)(newline)
(display "Min: ")(display Min)(newline)
(display "Between: ")
(display
(if (> (length (member Max data)) (length (member Min data)))
(reverse (member Min (reverse (member Max data))))
(reverse (member Max (reverse (member Min data))))))(newline))))
> бедной студенке
Денег нет, знаний тоже нет, желание их получить с миним. затратами тоже вряд ли имеется ..
Что, спрашивается, есть ?
С таким "набором" только в монастырь или на паперть)
Денег нет, знаний тоже нет, желание их получить с миним. затратами тоже вряд ли имеется ..
Что, спрашивается, есть ?
С таким "набором" только в монастырь или на паперть)
Эээ.. . А что бывает проще массивов?
А вот печатаю, увы, не особо быстро, поэтому - пять задач! - не буду...
А вот печатаю, увы, не особо быстро, поэтому - пять задач! - не буду...
2sm
ну почему только в монастырь, у бедных студенток часто либо тело хорошее, либо готовят вкусно :)
ну почему только в монастырь, у бедных студенток часто либо тело хорошее, либо готовят вкусно :)
Если на С пиши в агент, на паскале как то лень писать.
Похожие вопросы
- помогите пожалуйста сделать мне практическую по массивам, пожалуйста!!!
- ПОМОГИТЕ ПОЖАЛУЙСТА!! ИНФОРМАТИКА!! РЕШИТЬ ЧЕРЕЗ МАССИВ!!!
- Помогите пожалуйста решить задачи по информатике, одномерные массивы. Си шарп. Очень срочно. Пожалуйста!!!!
- Помогите пожалуйста составить программу по теме массивы.
- .помогите пожалуйста двумерный массив на языке c++
- Задача на C++ по одномерным (статическим) массивам, помогите сделать, пожалуйста, очень надо на завтра
- Сортировка массива (Паскаль) помогите пожалуйста
- Помогите пожалуйста. Visual Basic - массивы
- Задачи на массив паскаль, помогите пожалуйста
- помогите пожалуйста!!3.Напишите процедуру Input(A) для заполнения массива целых чисел A размером 10 x 10: 0 0 0 ...0 0