Предмет: Информатика,
автор: KIN223
помогите, решить на паскале!!
Дан массив 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
Ответы
Автор ответа:
0
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 (t<7) and (x[t]>15) then
sum:=sum+1;
end;
writeln(sum);
end.
Интересные вопросы
Предмет: Русский язык,
автор: карина1298йбга
Предмет: Английский язык,
автор: Danielkz02
Предмет: Немецкий язык,
автор: solohenkodahka5000
Предмет: Математика,
автор: emilisghoul1
Предмет: Английский язык,
автор: ggwpggwp12499
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 (t<7) and (x[t]>15) then
sum:=sum+1;
end;
writeln(sum);
end.