Технический форум - Задача на массивы в Паскале

Технический форум (http://www.tehnari.ru/)

- Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)

- - Задача на массивы в Паскале (http://www.tehnari.ru/f43/t50899/)

Задача на массивы в Паскале

Вот задачка, сразу говорю спасибо)

В последовательности х1,х2....хn (n<=25) заменить все отрицательные элементы их квадратами, а положительные кубами.

Надеюсь на вашу помощь.

Цитата:

Сообщение от Valet (Сообщение 509969)

Да ладно - но только в порядке исключения: вообще-то мы подобной ерундой не занимаемся.

Код:

VAR

 a:ARRAY[1..25] of Integer;

 i,N:byte;

BEGIN

 Randomize;

 Write('N(<26)= ');

 ReadLn(N);

 For i:=1 to N do

  begin

   a[i]:=5-Random(10);

   Write(a[i]:4);

  end;

 writeln;

 For i:=1 to N do

  If a[i]<0 then Write(a[i]*a[i]:4) else

  If a[i]>0 then Write(a[i]*a[i]*a[i]:4) else

  Write(a[i]:4);

 WriteLn;

 readln;

END.

chelsi92, Вам создана новая тема.
Эта ТЕМА ЗАКРЫТА.