Напишите программу заполнения одномерного массива любым и найдите сумму всех элементов.

Question

Информатика: Напишите программу заполнения одномерного массива любым и найдите сумму всех элементов.

Iekul · Accepted Answer

Const n=10;
var i,j,k,mx,ind: integer;
a: array[1..n] of integer;
begin
writeln('исходный массив:');
randomize;
mx:=0;
for i:=1 to n do
begin
a[i]:=random(2*n)-n;
write(a[i],' ');
if a[i]>mx then
begin
mx:=a[i];
ind:=i;
end;
end;
writeln;
for i:=ind+1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
k:=a[i];
a[i]:=a[j];
a[j]:=k;
end;
writeln('новый массив:');
for i:=1 to n do write(a[i],' ');
end.

исходный массив:
3 7 7 5 5 -2 -8 -9 -8 6
новый массив:
3 7 -9 -8 -8 -2 5 5 6 7

MOGZ ответил