2 Задачи

[Stan]

1) Дан одномерный массив, число элементов не превышает 10. Найти сумму элементов больших 4.
2) Вывести несколько слов и отсортировать их по количеству символов (по убыванию)
Заранее Спасибо!

[pu4koff]

1.

var
  a: array [1..10] of integer;
  i,sum: integer;
begin
  sum := 0;
  for i := 1 to 10 do
    if (a[i] > 4)then sum := sum + a[i];
end;

[juden]

var s1; s2: string;
x1,x2: integer;
begin
x1:=lenght(s1);
x2:=lenght(s2);
if x1<x2 then
label1.caption:=s2+#13+s1
else
label1.caption:=s1+#13+s2

[Stan]

Спасибо еще раз. Решите пожалуйста еще 2.
1) Даны 2 двумерных массива (размером 10х10), найти произведение максимальных элементов третьих строк этих массивов.
2) Дан файл, содержащий двумерный массив (размером 5х5) элементы по модулю <10 заменить на 0, остальные заменить на 1 и полученный массив записать в файл.

[juden]

1.)будет выглядеть приверно так:

for i:=1 to 9 do
if a[i,3]>a[i+1,3] then
x:=a[i,3];
for i:=1 to 9 do
if b[i,3]>b[i+1,3] then
y:=b[i,3];
z:=x*y;

From Stilet: У нас вообще-то код выделяется тегом по кнопке #