Дан одномерный массив Z[n]. Сформировать массив L, содержащий только нечетные элементы массива Z

@Аника · Регистрация: 22.12.2012

Задача на Pascal. Не решу - зачёт не поставят.

@CodeR · 22.12.2012, 07:45

Pascal

Var Z,L:array[1..100] of integer;
    i,n,m:byte;
Begin
    write('Введите n: ');readln(n);
    writeln('Массив Z');
    For i:=1 to n do
    Begin
      Z[i]:=random(31)-15;
      write(Z[i]:4);
    End;
    For i:=1 to n do
     if odd(Z[i]) then 
     Begin
       inc(m);
       L[m]:=Z[i];
     End;
    writeln;
    writeln('Массив L');
    For i:=1 to m do
     write(L[i]:4);
    readln;
End.

@Аника 1 / 1 / 0 Регистрация: 22.12.2012 Сообщений: 160
		1
	Дан одномерный массив Z[n]. Сформировать массив L, содержащий только нечетные элементы массива Z 22.12.2012, 01:07. Показов 1770. Ответов 1 Метки нет (Все метки) Задача на Pascal. Не решу - зачёт не поставят. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Дан одномерный массив Z[n]. Сформировать массив L, содержащий только нечетные элементы массива Z

Решение