Технический форум

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

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Массивы (http://www.tehnari.ru/f41/t31995/)

Ins1s

13.01.2010 20:18

Массивы

Дана натуральное число n, действительные числа а1.......an, в последовательном а1....аn все отрицаиельные члены увеличить на 0.5, а все натуральные заменить на 0.1 !!!

Ins1s

13.01.2010 21:21

Цитата:

Сообщение от Ins1s (Сообщение 281757)

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

DDS	13.01.2010 23:14

Код:

 Const n=4;

 Var a:array[1..n]of real;

       i:byte;

 Begin

     For i:=1 to n do

       Read(a[i]);

     For i:=1 to n do

       Begin

       If a[i]<0 then a[i]:=a[i]+0.5;

       If (a[i]>0) and (frac(a[i])=0) then a[i]:=0.1;

       Writeln(a[i]:5:2);

       End;

End.

Часовой пояс GMT +4, время: 06:08.