Вычислить произведение суммы элементов массива - QBasic

Формулировка задачи:

Здравствуйте. Помогите пожалуйста. Вычислить произведение P=S1*S2 суммы S1 элементов массива x_i и суммы S2 элементов массива y_i i=1,2,3, меньших 5

Вроде получилось, спасибо.

Решение задачи: «Вычислить произведение суммы элементов массива»

Листинг программы

CLS
RANDOMIZE TIMER
PRINT "I","x(i)","y(i)"
FOR i = 1 TO 3
  x(i) = RND * 10
  y(i) = RND * 10
  PRINT i,x(i),y(i)
  IF x(i) < 5 THEN s1 = s1 + x(i)
  IF y(i) < 5 THEN s2 = s2 + y(i)
NEXT
PRINT STRING$(80, 196)
PRINT "s1="; s1, "s2="; s2
PRINT STRING$(80, 196)
p = s1 * s2
PRINT "p="; p
END

Объяснение кода листинга программы

CLS — очистка экрана
RANDOMIZE TIMER — установка случайного числа для повторного вычисления в каждой итерации цикла
PRINTI,x(i),y(i)`` — вывод заголовка цикла
FOR i = 1 TO 3 — начало цикла, выполняемого три раза
x(i) = RND * 10 — присваивание переменной x(i) случайного числа от 0 до 10
y(i) = RND * 10 — присваивание переменной y(i) случайного числа от 0 до 10
PRINT i,x(i),y(i) — вывод значения i, x(i) и y(i)
IF x(i) < 5 THEN s1 = s1 + x(i) — если x(i) меньше 5, то прибавить его к s1
IF y(i) < 5 THEN s2 = s2 + y(i) — если y(i) меньше 5, то прибавить его к s2
NEXT — завершение цикла
PRINT STRING$(80, 196) — вывод строки символов для разделения результатов
PRINTs1=; s1,s2=; s2 — вывод значений s1 и s2
PRINT STRING$(80, 196) — вывод строки символов для разделения результатов
p = s1 * s2 — произведение s1 и s2 присваивается переменной p
PRINTp=; p — вывод значения p
END — завершение программы