Tenken

Vladimir_S а не могли бы вы посмотреть вот я тут с помощью одного человека решил вот так, это правильно?

const n = 100;
var
a:array[1..n]of integer;
i,j,b,c,e:integer;
begin
readln(b);
for i:=1 to b do begin
readln(a[i]);
if (a[i]>0) and (c=0) then c:=i;
end;
for i:=1 to b-1 do
for j:=i to b do
if a[i]>a[j] then begin c:=a[i]; a[i]:=a[j]; a[j]:=c; e:=e+1;end;
if e<>0 then for i:=1 to b do write(a[i],' '); writeln;
j:=0;
for i:=1 to b do j:=j+a[i];
if e=0 then begin a[c+1]:=j; writeln(a[c+1]);end;
end.

Vladimir_S

Да вроде можно и так. Пара-тройка мелких замечаний.

1. "Слепой" ввод чисел ну очень неудобен. Куда, на мой взгляд, приятнее и удобнее, если на экране появляются подсказки. Поэтому вместо

readln(b);
for i:=1 to b do begin
readln(a[i]);
if (a[i]>0) and (c=0) then c:=i;
end;

я бы написал

write('b= ');
readln(b);
for i:=1 to b do begin
write('a[',i,']= ');
readln(a[i]);
if (a[i]>0) and (c=0) then c:=i;
end;

2. Можно, конечно, полагаться на то, что по умолчанию переменным присвоены нулевые значения, но я бы не стал: не все трансляторы это делают. А потому добавил бы в нужных местах

c:=0; и e:=0;

3. Если перед финальным "end." добавить (как у меня сделано) пустой "readln;", то программа остановится (до нажатия "Enter") и позволит прочитать выведенные на экран данные.

AlexZir

Tenken, не смешите народ сказками, что вы не проходили логический тип. К вашему сведению, язык программирования Pascal как один из вариативных, по школьной программе изучают в 9 классе средней школы. Так что вы вполне можете упирать на этот факт в разговоре с вашим преподавателем.

Tenken

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

Vladimir_S

Ну здрасьте, я ваша тётя! Уважаемый "автор", пусть даже и "с помощью одного человека", даже не понял, что выложил именно такой вариант - с вводом данных с консоли! Цирк, да и только!

Tenken

Всё задача выполнена всем большое спасибо, извините за тупизм не судите строго не очень я пока разбираюсь, я в школе не учил паскаль, т.к. в 9 классе учитель информатики в декрет ушла и поэтому пропущено всё было, вот почему и туплю, но ничего наверстаю упущенное и буду решать задачи как надо, ещё раз извините!=)