Помогите пожалуйста! Опции

[goosberry]

Задача: в массиве из 10 элементов найти min элемент и все элементы массива уменьшить на половину значения этого элемента.

Задача 2: Даны массивы x и y из 10 элементов. Заменить элементы массива x, превышающие значение среднего арифметического элементов массива y этим значением (средним арифм.).

Заранее спасибо!

[Client]

1)

Program massiv;
Uses crt;
Var x: array [1..10] of integer;
min,I,k: integer;
Begin clrscr; randomize;
For i:=1 to 10 do x[i]:=random (20);
Min:=x[1];
For i:=2 to 10 do  If x[i]<min then min:=x[i]; 
K:=min div 2; // массив целых чисел
For i:=1 to 10 do begin
X[i]:=x[i]-k; //здесь была бы ошибка
Write (x[i]); end;
Write (‘min элемент = ‘, min);
Readkey;
End.

Во второй аналогично

For i:=1 to 10 do begin If x[i]>sr then x[i]:=sr; //sr-real, а массив из целых чисел

Сообщение отредактировано: Client - 30.06.2008 14:03