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

Дан массив 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

Информатика

Гелий

19 октября, 22:53

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

Дан массив 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

+2

Ответы (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.