Билет на экзамене

@santa_evgeniy · Регистрация: 11.03.2018

Author24 — интернет-сервис помощи студентам

На экзамене билет попался:

Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, оканчивающееся на 4. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 4. Количество чисел не превышает 1000. Введённые числа не превышают 30000. Программа должна вывести одно число — минимальное число,
оканчивающееся на 4.

Программу написал, только не могу понять как мне вычислить минимальное значение, помогите, пожалуйста

PureBasic

Sub pr_3()
Dim i, a, n, x As Integer
n -InputBox("Введите количество чисел в последовательности")
If b >= 1000 Then
MsgBox ("количество превышает 1000!")
Else
For i = 1 To n
a -InputBox("Введите число")
If a Mod 4 = 0 Then
 
End If
Next i
MsgBox (x)
End If
End Sub

@ZX Spectrum-128 · 25.06.2018, 11:42

QBASIC

QBasic/QuickBASIC

min = 30000
INPUT n
IF n >= 1000 THEN
  PRINT "Bolshe 1000!"
ELSE
  FOR i = 1 TO n
    INPUT a
    IF (a MOD 4 = 0) AND (a < min) THEN
      min = a
    END IF
NEXT i
PRINT min
END IF

SoftIce · 25.06.2018, 12:02

Сообщение от ZX Spectrum-128

a MOD 4 = 0

Не, не подойдёт.

@ZX Spectrum-128 · 25.06.2018, 12:15

Сообщение от SoftIce

Не, не подойдёт.

Точно! (С)

Отчего-то решил, что кратные 4

santa_evgeniy, исправьте, пожалуйста
на

QBasic/QuickBASIC

1	IF (a MOD 10=4) AND (a < min) THEN

SoftIce es geht mir gut 11272 / 4756 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	25.06.2018, 12:02	3
	Сообщение от ZX Spectrum-128 a MOD 4 = 0 Не, не подойдёт. 2

	25.06.2018, 12:15

Билет на экзамене

Решение