Срочно помогите решить задачи!!!!!!!!!

[Paralax]

4. Дано целое число N (>1). Вывести наименьшее целое K, при котором выполняется неравенство 3K>N, и само значение 3K.

Нигде не оговоренно, поэтому считаем что К - целое

CLS
INPUT "Enter N"; n
k = INT(n / 3)
IF k * 3 <= n THEN
 k = k + 1
END IF
PRINT "3K="; 3 * k

[photosdim]

продам задачи по термеху из сборника Яблонского

[Underground]

раз такая тема пошла: я бы сам разобрался, но сдавать нужно уже завтра, помогите плз:
1) Заполнить одномерный массив M (18) целыми случайными числами из диапозона [-40;40]. Найти наименьший элемент среди положительных элементов массива М и его порядковый номер (индекс)

2)Сформировать массив С (13,13) из случайных чисел на интервале [-20;60]. Массив распечатать. В массиве найти: сумму нечетных элементов; произведение элементов главной диагонали. Распечатать найденные значения. Уменьшить в 2 раза элементы четных столбиков, значения которых меньше 20. Распечать полученный массив. В измененном массиве найти максимальный элемент заштрихованной области и его координаты. Распечатать найденные значения. Заштрихованная область схематично показана:

- - х х
- - х х
- - - -
- - - -

3) Вычислить среднее арифметическое положительных элементов массивов X(60), Y(75), Z(80). Определение среднего арифметического оформить в виде функций

буду благодарен, если поможете хотя бы с частью задания

[Paralax]

раз такая тема пошла: я бы сам разобрался, но сдавать нужно уже завтра, помогите плз:
1) Заполнить одномерный массив M (18) целыми случайными числами из диапозона [-40;40]. Найти наименьший элемент среди положительных элементов массива М и его порядковый номер (индекс)

CLS
OPTION BASE 1
RANDOMIZE TIMER
DIM M(18)

FOR i = 1 TO 18
 M(i) = INT(RND * 81 - 40)
 PRINT M(i);
NEXT
PRINT : PRINT

Min = 0
MinElem = 10000

FOR i = 1 TO 18
  IF M(i) < MinElem THEN
   MinElem = M(i)
   Min = i
  END IF
NEXT

PRINT "Minumal element "; MinElem
PRINT "Position"; Min

Добавлено через 53 минуты

2)Сформировать массив С (13,13) из случайных чисел на интервале [-20;60]. Массив распечатать. В массиве найти: сумму нечетных элементов; произведение элементов главной диагонали. Распечатать найденные значения. Уменьшить в 2 раза элементы четных столбиков, значения которых меньше 20. Распечать полученный массив.

CLS
OPTION BASE 1
RANDOMIZE TIMER
DIM C(13, 13)

FOR i = 1 TO 13
 FOR j = 1 TO 13
  C(i, j) = INT(RND * 81 - 20)
  PRINT C(i, j);
 NEXT j
 PRINT
NEXT i

PRINT "Press key Esc..."
DO
LOOP UNTIL INKEY$ = CHR$(27)



SumUneven = 0
EqualMainDiag = 1
FOR i = 1 TO 13

 EqualMainDiag = EqualMainDiag * C(i, i)

 FOR j = 1 TO 13
  

  IF INT(C(i, j) / 2) <> (C(i, j) / 2) THEN
    SumUneven = SumUneven + C(i, j)
  END IF

 NEXT j
NEXT i

PRINT "Summa uneven"; SumUneven

PRINT "Equal main diagonal"; EqualMainDiag

PRINT : PRINT
FOR i = 1 TO 13

 FOR j = 1 TO 13
 

  IF INT(C(i, j) / 2) = (C(i, j) / 2) THEN
    IF C(i, j) < 20 THEN
     C(i, j) = INT(C(i, j) / 2)
    END IF
  END IF
  PRINT C(i, j);

 NEXT j
 PRINT
NEXT i

Добавлено через 55 минут

В измененном массиве найти максимальный элемент заштрихованной области и его координаты. Распечатать найденные значения. Заштрихованная область схематично показана:

- - х х
- - х х
- - - -
- - - -

3) Вычислить среднее арифметическое положительных элементов массивов X(60), Y(75), Z(80). Определение среднего арифметического оформить в виде функций

буду благодарен, если поможете хотя бы с частью задания

На это уже сил нет... Днюха у меня - пива напился.

Добавлено через 1 час 3 минуты
Торможу конкретно, Equal - деление. Не правильно назвал переменные и вывод. Умножение - Multi. Но алгоритм - правильный.

[Firma4]

Ну а последние 2 задачи (5, 6) мои напишешь? Пожалуйста? Кстати С Днем Рождения!

[Paralax]

5. Проверить истинность высказывания: "Данные числа x,y являются координатами точки, лежащей в первой или третьей координатной четверти"

CLS
INPUT "X="; x
INPUT "Y="; y

IF (x > 0) AND (y > 0) THEN
 PRINT "1"
ELSEIF (x < 0) AND (y < 0) THEN
 PRINT "3"
ELSE
 PRINT "2 or 4"
END IF

6. Проверить истинность высказывания: "Среди трех данных чисел есть хотя бы одна пара взаимно противоположных".

Не понял, что значит - противоположные? И какова длина чисел (сколько знаков)?
45 и 54, 752 и 257
или может?
67 и -67

[Viy]

Наверно 67 и -67(я Firma4)

[Paralax]

Наверно 67 и -67(я Firma4)

CLS
INPUT "A,B,C"; a, b, c
IF (ABS(a) = ABS(b)) OR (ABS(a) = ABS(c)) OR (ABS(b) = ABS(c)) THEN
 PRINT "Present"
ELSE
 PRINT "Not present"
END IF

[Firma4]

А третью задачу про степень ты не знаешь как решить?

[Paralax]

А третью задачу про степень ты не знаешь как решить?

COMMON b AS DOUBLE
CLS

INPUT "A,N"; a, n


b = 1
s$ = ""

FOR i = 1 TO n
   b = b * a
   IF i = 1 THEN
     s$ = s$ + STR$(a)
   ELSE
     s$ = s$ + " *" + STR$(a)
   END IF
   
NEXT

PRINT STR$(b) + "=" + s$

[msi92]

Помогите пожалуйста решить: В заданном вещественном массиве A(n) найти все числа, у которых старшая значащая десятичная цифра есть 9 (числа сильно различаются по величине) qbasic