Pascal. Задача на массив

[BLackJackxxx]

помогите решить задачу на массив
Сформировать одномерный массив, найти сумму элементов данного массива и максимальный элемент массива

[malinoff]

Помогу за небольшое вознаграждение

[MyLastHit]

BLackJackxxx,чел ну ты вообще печален...

sum:=0;
for i:=1 to 10 do
begin
  writeln('Vvedite ',i,'-й элемент ');
  readln(a[i]);
end;
max:=a[1];
for i:=1 to 10 do
begin
  sum:=sum+a[i];
  if a[i]>max then max:=a[i];
end;
writeln('Summa = ',sum,' Max = ', max);
readln;
end.

Переменные сам объявляй

[malinoff]

Сообщение от MyLastHit

BLackJackxxx,чел ну ты вообще печален...

sum:=0;
for i:=1 to 10 do
begin
  writeln('Vvedite ',i,'-й элемент ');
  readln(a[i]);
end;
max:=a[1];
for i:=1 to 10 do
begin
  sum:=sum+a[i];
  if a[i]>max then max:=a[i];
end;
writeln('Summa = ',sum,' Max = ', max);
readln;
end.

Переменные сам объявляй

Ну зачем же, если так рвешься помочь, учебник бы посоветовал. А вообще, такую халтурку грех пропускать.

[MyLastHit]

Ну пусть хоть переменные объявит. А учебник посоветовать бы рад, но не могу) Сам ни одного по паскалю не открывал)

[gtnheirf]

Мальчики спасибо огромное!!!!!!!!! Только если на то пошло то я вообщето чувиха)))))))))

[Alex11223]

(на правах К.О.) Автор поста выше перепутал темы и завтра сдаст решение другой задачи?)

[MyLastHit]

Ага))) я уже этот анегдотик трем челам в аське рассказал
Поржали конкретно.