Задача в Паскале.Массивы.

[Deco18]

Дан массив у1,...у10.Вычислите:X[i]=У[i]в 3ей степени/Ymin.

[Sazary]

Ну так вычисляйте. Что не получается-то? Или вы даже пытались решить сами? (скорее всего так и есть)

Сначала узнаете минимальное значение.

Ymin := y[1];
for i:=1 to 10 do
 if y[i]<Ymin then Ymin := y[i];

Затем вычисляете значения массива X.

Сообщение от maladoy

Небольшая поправка...

Да-да, спасибо ) Конечно же..

[maladoy]

Небольшая поправка...

 Ymin:=y[1]

так как если все у[i]>0 то возникнет деление на 0.

[Deco18]

спасибо))))

[леся88]

Задача:
В заданном массиве А(N) поменять местами наибольший и наименьший элементы.
Заранее спасибо)))

[Google2010]

2 леся88

var a:array[1..100] of real;
 n,i,k,k1:integer;
 tmp:real;
begin
writeln('n=');
readln(n);

    for I := 1 to n  do
      a[i]:=random(n*2)-n;
   for I := 1 to n  do
     write(a[i]:8:2);
     writeln;
k:=1;
k1:=1;
for I := 2 to n  do
begin
  if a[i]<a[k] then k:=i;
  if a[i]>a[k1] then k1:=i;

end;

tmp:=a[k];
a[k]:=a[k1];
a[k1]:=tmp;
 for I := 1 to n  do
     write(a[i]:8:2);
     writeln;
readln;

end.

[Stilet]

леся88

Одна тема - один автор. Закрываю.