Сформировать массив Y из модулей отрицательных элементов массива X

@настя 122 · Регистрация: 01.04.2013

Author24 — интернет-сервис помощи студентам

Дан массив X(N). Сформировать массив Y из модулей отрицательных элементов массива X/

@brunis · 01.04.2013, 19:26

Pascal

For i:=1 to N do
  if X[i]<0 then Begin
    inc(k);
    Y[k]:=Abs(X[i]);
  End;

@настя 122 · 01.04.2013, 19:37 **[ТС]**

А ты не мог бы написать полное решение?

@brunis · 01.04.2013, 20:10

Pascal

const N = 10;
Var X,Y:array[1..N] of integer;
    i,k:integer;
Begin
  writeln('vvedite 10 chisel');
  For i:=1 to N do begin
    write('X',i,' = '); readln(x[i]);
  End;
 
  For i:=1 to N do
    if X[i]<0 then Begin
      inc(k);
      Y[k]:=Abs(X[i]);
    End;
 
  writeln('massiv Y');
  For i:=1 to k do begin
    writeln('Y',i,' = ',Y[i]);
  End;
 
  readln;
End.

@настя 122 · 01.04.2013, 20:25 **[ТС]**

brunis, Ты не мог бы решить еще вот эту задачу:
Дан массив X(N,M). Определить первое положительное число среди нечетных строк массива.?

@настя 122 0 / 0 / 0 Регистрация: 01.04.2013 Сообщений: 5
		1
	Сформировать массив Y из модулей отрицательных элементов массива X 01.04.2013, 19:19. Показов 1355. Ответов 4 Метки нет (Все метки) Дан массив X(N). Сформировать массив Y из модулей отрицательных элементов массива X/ 0

@настя 122 0 / 0 / 0 Регистрация: 01.04.2013 Сообщений: 5
	01.04.2013, 19:37 [ТС]	3
	А ты не мог бы написать полное решение? 0

@настя 122 0 / 0 / 0 Регистрация: 01.04.2013 Сообщений: 5
	01.04.2013, 20:25 [ТС]	5
	brunis, Ты не мог бы решить еще вот эту задачу: Дан массив X(N,M). Определить первое положительное число среди нечетных строк массива.? 0