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

[Valet]

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

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

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

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

 

[Vladimir_S]

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

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

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

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

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.

 

[Valet]

спасибо

 

[Vladimir_S]

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