Массивы

Ins1s · 13.01.2010, 20:18

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

Ins1s · 13.01.2010, 21:21

Цитата:

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

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

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

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.

13.01.2010, 20:18	#1 (permalink)
Ins1s Member Регистрация: 14.12.2009 Сообщений: 53 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Массивы Дана натуральное число n, действительные числа а1.......an, в последовательном а1....аn все отрицаиельные члены увеличить на 0.5, а все натуральные заменить на 0.1 !!!

13.01.2010, 23:14	#3 (permalink)
DDS Member Регистрация: 15.02.2009 Сообщений: 695 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 523	Код: 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.

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

13.01.2010, 20:18
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Ранее на форуме создавалось что то аналогично Массивы Массивы Массивы Массивы Массивы. Массивы

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070