Ввести одномерный массив состоящий из 11 элементов. Определить в нем сумму элементов, стоящих на позициях, чей номер больше его заявленной в нем значение сделать.
Const n=5; Var s,i: integer; a:array[1..n] of integer; Begin a[1]:=1; a[2]:=2; a[3]:=3; a[4]:=4; a[5]:=5; s:=0; for i:=1 to n do begin s:=s+a[i]; writeln('Сумма элементов = ', s); {если тут, то вывод всех чисел на экран } end; {если сюда вставить writeln('Сумма элементов = ', s); то тебе покажут тока ответ} End.
n=5;
Var
s,i: integer;
a:array[1..n] of integer;
Begin
a[1]:=1;
a[2]:=2;
a[3]:=3;
a[4]:=4;
a[5]:=5;
s:=0;
for i:=1 to n do
begin
s:=s+a[i];
writeln('Сумма элементов = ', s); {если тут, то вывод всех чисел на экран } end;
{если сюда вставить writeln('Сумма элементов = ', s); то тебе покажут тока ответ}
End.