Помогите, решить на паскале!

Дан массив X (T). Вычислить сумму положительных элементов массива с номе-рами меньшими 7, значение которых больших 15 (T>=7).

1. Проверить работу программы для данных:

1 2 3 4 5 6 7 8 9

Х - 15 2 17 4 23 4 - 30 24 - 1

Question

Информатика

Володюша

13 ноября, 22:22

Помогите, решить на паскале!

Дан массив X (T). Вычислить сумму положительных элементов массива с номе-рами меньшими 7, значение которых больших 15 (T>=7).

1. Проверить работу программы для данных:

1 2 3 4 5 6 7 8 9

Х - 15 2 17 4 23 4 - 30 24 - 1

+4

Ответы (1)

Знаешь ответ?

Дрона · Answer 1

Const N:=10; var x[1 ... N]: array of integer; t, sum:integer; begin sum:=0; writeln ("Введите ", N, " чисел."); for t:=1 to N do begin readln (x[t]); if (t15) then sum:=sum+1; end; writeln (sum); end.