Массивы в Паскале.

[Zachary]

Такая задачка по массивам.

Даны два массива вещественных чисел:
А(10) и С(8). Если минимальные значения элементов этих массивов равны, то отсортировать по убыванию каждый массив. В противном случае, увеличить все положительные элементы массива А на 10. Показать измененные массивы и значения минимумов.

[Ol'ga_new]

var a:array[1..10]of real;
c:array[1..8]of real;
begin
....{заполнение массивов}
min1:=a[1];
min2:=c[1];
for i:=2 to 10 do
if min1<a[i] then
min1:=a[i]
for i:=2 to 8 do
if min2<c[i] then
min2:=c[i];
if min1<>min2 then
begin
for i:=1 to 10 do
if a[i]>0 then
a[i]:=a[i]+10
end
else
{сортировка массивов}
{вывод}

может поможет то, что я набросала!

[Zachary]

Надеюсь. Спасибо.
Будем еще пробовать.