В массив на пятое место вставить элемент, равный сумме первых пяти элементов.
Answers & Comments
kage1998
Program chik; var a:array[1..1000]of integer; n,i,s:integer; begin read(n); for i:=1 to n do begin read(a[i]); end; s:=0; for i:=1 to 5 do begin s:=s+a[i]; end; a[5]:=s; for i:=1 to n do begin write(a[i],' '); end; end.
Answers & Comments
var a:array[1..1000]of integer;
n,i,s:integer;
begin
read(n);
for i:=1 to n do
begin
read(a[i]);
end;
s:=0;
for i:=1 to 5 do
begin
s:=s+a[i];
end;
a[5]:=s;
for i:=1 to n do
begin
write(a[i],' ');
end;
end.