Найти минимальное число и его порядковый номер в последовательности

Решить через табличный способ организации данных. Даны N чисел.Составить программу которая: б)Найдет минимальное число и его порядковый номер в этой последовательности. в)Найдет сумму всех чисел этой последовательности. г)Прировняет к нулю все отрицательные числа этой последовательности. д)Найдет все числа кратные 3 или 5.
2 ответа

Решить через табличный способ организации данных.
Так, видать, теперь называют двумерный массив... а было подумал, что вам в Excel.


г)Прировняет к нулю все отрицательные числа этой последовательности. д)Найдет все числа кратные 3 или 5.
так все нулевые также кратными будут
INPUT "N=", N
DIM A(1 TO N)
M = 1
FOR i = 1 TO N
    PRINT "A("; i; ")=";
    INPUT A(i)
    IF A(i) < A(M) THEN M = i
    s = s + A(i)
NEXT
PRINT "min="; A(M); " No="; M
PRINT "S="; s
PRINT "Aix3 or Aix5"
M = 0
FOR i = 1 TO N
    IF A(i) MOD 3 = 0 OR A(i) MOD 5 = 0 THEN
        PRINT A(i)
        M = 1
    END IF
NEXT
IF M = 0 THEN PRINT "no such numbers"
PRINT "new A:"
FOR i = 1 TO N
    IF A(i) < 0 THEN A(i) = 0
    PRINT A(i)
NEXT
END