Из одномерного массива C получить массив D,удалив из массива C нечётные и минимальные элементы.

@Станислава001 · Регистрация: 31.03.2010

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

@Жека-старший · 09.04.2010, 21:47

Pascal

program pr1;
var ch1,ch2:array[1..25] of integer; n,i,k,min:byte;
begin
  writeln('Vvedi n');
  readln(n);
  for i:=1 to n do
  begin
    ch1[i]:=random(101)-30;
    write(ch1[i]:4);
  end;
  writeln;
  min:=1;
  for i:=2 to n do
    if ch1[i]<ch1[min] then min:=i;
  writeln(min);
  k:=0;
  for i:=1 to n do
  if (ch1[i] mod 2=0)and(ch1[i]<>ch1[min]) then begin
                                             inc(k);
                                             ch2[k]:=ch1[i];
                                             write(ch2[k]:4);
                                            end;
  writeln;
end.

@Станислава001 0 / 0 / 0 Регистрация: 31.03.2010 Сообщений: 4
		1
	Из одномерного массива C получить массив D,удалив из массива C нечётные и минимальные элементы. 09.04.2010, 21:41. Показов 1251. Ответов 1 Метки нет (Все метки) Из одномерного массива C получить массив D,удалив из массива C нечётные и минимальные элементы. 0

Опции темы

Из одномерного массива C получить массив D,удалив из массива C нечётные и минимальные элементы.

Решение