Информатика.Одномерный массив.

[vinogradik_94]

Помогите пожалуйста с информатикой. Задан массив C1...CN. Определить его последний неотрицательный элемент. Подсчитать количество элементов,значение которых меньше А. Вычислить среднее арифметическое цель численных элементов, значение которых делится на 3 без остатка.
(Нужно составить программу)

[BDA]

Отличная задача для обучения программированию, совсем несложная.
Что именно у Вас не получается?

[vinogradik_94]

Честно говоря, не знаю как составить программу.

[Rififi]

vinogradik_94

Задан массив C1...CN. Определить его последний неотрицательный элемент.

int[] arr = {...};
int lastPos = arr.LastOrDefault(p => p >=0);

Подсчитать количество элементов,значение которых меньше А

int N = arr.Count(p => p < A);

Вычислить среднее арифметическое цель численных элементов, значение которых делится на 3 без остатка.

var elems = arr.Where(p => p % 3 == 0);
var sum = (double) elems.Sum() / elems.Count();

[BDA]

Вообще ничего?
Ну хотя бы считать значения в массив можете?
(и язык программирования укажите)

Вроде бы да.

Если это ответ на мой вопрос, то покажите, что у Вас получилось (считывание).

Язык программирования Q Basik

Во-первых, свои сообщения можно редактировать 24 часа после написания, поэтому в будущем дописывайте, а не пишите еще одно сообщение.
Во-вторых, название языка пишется через c, насколько знаю
В-третьих, опять же на будущее, не забывайте сразу указывать язык программирования, т.к. я, например, не знаю QBasic, поэтому не могу помочь.

Проверьте:

CLS
DATA 5, 3, 1, 2, 7, 40, -5
READ n
READ a
PRINT "N = ", n
PRINT "A = ", a
DIM c(n)
pos = -1
count = 0
sum = 0
countsr = 0
PRINT "Massiv:"
FOR i = 1 TO n
  READ c(i)
  PRINT c(i)
  IF c(i) >= 0 THEN
    pos = i
  END IF
  IF c(i) < a THEN
    count = count + 1
  END IF
  IF c(i) MOD 3 = 0 THEN
    sum = sum + c(i)
    countsr = countsr + 1
  END IF
NEXT i
IF pos > -1 THEN
  PRINT "Posledni neotricatelni = ", c(pos)
ELSE
  PRINT "Net neotricatelnix"
END IF
PRINT "Kolichestvo chisel, menshix A = ", count
IF countsr = 0 THEN
  PRINT "Net chisel, deliashixcia na 3 bez ostatka"
ELSE
  PRINT "Srednee = ", sum/countsr
END IF

[vinogradik_94]

Вроде бы да.

[vinogradik_94]

Язык программирования Q Basik