Delphi. Как решить?

[skovorodkun]

До завтра надо решить две задачи, а я что то уже совсем запутался((((
Помогите пожалуйста, без этой работы зачета не видать, а нету зачета, не допустят до сессии. А не допустят до сессии, то вылечу((((


1)Найти S=(1^2) + (2^2) + (3^2) + ... + (10^2);
2)4. Найти сумму всех положительных элементов массива Y[4, 4], найти среднее арифметическое всех элементов. Массив сформировать случайным образом (от -12 до 23). Найти максимальный элемент массива его номер строки и столбца. Отсортировать по строкам по убыванию.

[Mad_Cat]

Delphi. Как решить?

стукнуть мне в аську (723-32[один])--> заплатить 100р-->получить решение

[Stilet]

1)Найти S=(1^2) + (2^2) + (3^2) + ... + (10^2);

Вот если не ошибаюсь:

var i:integer;s:longint;
begin s:=0;   for i:=1 to 10 do s:=s+i*i;write(s);readln;end;

[d3qoot]

Вот посмотри, всё, кроме сортировки... лень щас делать.