массивы

[ShadowCat]

нужно решить задачку по высокоуровневым методам:
Найдите и запишите вместо первого элемента массива наибольший элемент этого массива, а вместо второго элемента массива наименьший элемент этого же массива. В массиве 20 вещественных чисел.
Сессия на носу совсем нет времени разбираться помогите плизззз!!!!!!

[ОДИНОЧЕСТВО В СЕТИ]

{так как язык не указан вот на паскале(delphi)}
var mas:array [1..20] of real;
       i:integer;
      max,min:real;
begin
for i:=1 to 20 do
mas[i]:=random(50)+random(100)/100;
max:=mas[1];
min:=mas[1];
for i:=1 to 20 do begin
if mas[i]>max then max:=mas[i];
if mas[i]<min  then min:=mas[i];
end;
writeln('old array:');
for i:=1 to 20 do
Write(mas[i]:6:3);
mas[1]:=max;
mas[2]:=min;
writeln;
writeln('new array:')
for i:=1 to 20 do
Write(mas[i]:6:3);
readln;
end.

[ShadowCat]

Огромное спасибо!!! Даже если не пройдет на Паскале, то очень поможет разобраться.

[ShadowCat]

Посмотрите, пожалуйста, правильно ли реализовано на С++:
Код:
#include <iostream.h>
…
int main ()
{
int number[20]={a,b,7,3,18,21,11,5,13,28,41,2,15, 17,18,33,88,19,20,99};
int min=number[0],max=number[19],x, a=7,b=12;
for (x=0;x<20;x++)
{
if (number[x]>=max) max=number[x];
else if (number[x]<=min) min=number[x];
}
a=max;
b=min;
cout << number[x]<<",где a="<< max << "-максимальное число, b=" <<min <<"-минимальное число\n";
return 0;
}