Вычислить произведение P=S1*S2 суммы S1 элементов массива x[i]-тое и суммы S2 элементов массива y[i]-тое, i=1,2,3 меньших 5- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
DIM x(3)
DIM y(3)
FOR i = 1 TO 3
    PRINT x(i);
NEXT
PRINT
FOR i = 1 TO 3
    PRINT y(i);
NEXT
PRINT
FOR i = 1 TO 3
    IF x(i) < 5 THEN S1 = S1 + x(i)
NEXT
PRINT
FOR i = 1 TO 3
    IF y(i) < 5 THEN S2 = S2 + y(i)
NEXT
PRINT S1 * S2

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

Похожие записи/страницы:

Leave a Comment