Помогите решить задачу ** паскале!! пожалуйста Дан массив X(T). Вычислить сумму...

0 голосов
36 просмотров

Помогите решить задачу на паскале!! пожалуйста
Дан массив X(T). Вычислить сумму положительных элементов массива с номерами меньшими 7, значение которых больших 15 (T³7) .


Информатика (21 баллов) | 36 просмотров
Дан 1 ответ
0 голосов

Const t=10;
var
x: array [1..t] of integer;
s, i: integer;
begin
for i:=1 to t do
begin
x[i]:=random(51)-20;
writeln('x[', i, '] = ', x[i]);
if (x[i]>0) and (i<7) and (x[i]>15) then s:=s+x[i];
end;
writeln('Сумма равна ', s);
end.

(4.7k баллов)
0

а что означает эта строка?const t=10;

0

Константа. Массив же 1..t