Линейные массивы.

09.06.2009, 11:52. **Показов** 649. **Ответов** 3

народ привет! я в паскале полный ноль, надеюсь на вашу помощь!
вот задание:
в векторе х(N) отрицательные элементы увеличить на 0,5, а положительные заменить на 0,1

заранее огромное спасибо!

@Puporev · 09.06.2009, 13:29

народ привет! я в паскале полный ноль,

Радость-то какая!

@mamedovvms · 09.06.2009, 13:38

Pascal

uses crt;
var x:array[1..10] of real;
      i,n:integer;
begin
 clrscr;
 writeln('n ');
 readln(n);
 for i:=1 to n do
  readln(x[i]);
for i:=1 to n do 
 write(x[i],' ');
writeln;
 
for i:=1 to n do
 begin
  if x[i]<0 then x[i]:=x[i]+0.5 else
  if x[i]>0 then x[i]:=0.1;
  write(x[i],' ');
 end;
 
readln;
end.

10.06.2009, 22:28

спасибо огромное!!!

tato6ka
		1
	Линейные массивы. 09.06.2009, 11:52. Показов 649. Ответов 3 Метки нет (Все метки) народ привет! я в паскале полный ноль, надеюсь на вашу помощь! вот задание: в векторе х(N) отрицательные элементы увеличить на 0,5, а положительные заменить на 0,1 заранее огромное спасибо!

@Puporev Почетный модератор 64275 / 47574 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	09.06.2009, 13:29	2
	народ привет! я в паскале полный ноль, Радость-то какая! 0

Опции темы