Помогите, решить на паскале!!
Дан массив 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
Const N:=10;var x[1..N]: array of integer;t,sum:integer;beginsum:=0;writeln("Введите ", N, " чисел.");for t:=1 to N do beginreadln(x[t]);if (t<7) and (x[t]>15) thensum:=sum+1;end;writeln(sum);end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
