Результат игр по футболу хранятся в массиве.Каждые три последовательных элемента массива содержат соответственно номер игры,кол-во забитых мячей и кол-во пропущенных мячей.Определите и выведите на экран,в скольких играх разность забитых и пропущенных мячей больше трёх — QBasic(Бейсик)

INPUT "vvedite kolichestvo igr ", n
DIM a(n * 3)
FOR i = 1 TO n
a(i * 3 - 2) = i
PRINT "v "; i; " igre"
INPUT "zabito ", a(i * 3 - 1)
INPUT "propusheno ", a(i * 3)
NEXT
PRINT
PRINT "massiv"
FOR i = 1 TO n * 3
PRINT a(i);
NEXT
FOR i = 1 TO n
IF ABS(a(i * 3 - 1) - a(i * 3)) > 3 THEN k = k + 1
NEXT
PRINT "takih igr="; k

Тестирование выполнено в программе QB64 ( Скачать )

Leave a Comment