Из положительных элементов исходного массива сформировать новый массив

@Kalina · Регистрация: 13.11.2012

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

Составить на языке Паскаль программу, управляющуюся с помощью меню.

1)Из положительных элементов исходного массива сформировать новый массив;
2)Определить, что больше – сумма элементов, стоящих после максимального элемента, или сумма элементов, стоящих после минимального элемента.

Помогите пожалуйста, а то вообще не понимаю

@aleksskay · 15.11.2012, 12:48

если одномерные то

Pascal

  uses crt;
  var
    a,b:array[1..10] of integer;
    max,min,i,kol, j,r1,r2,s1,s2:integer;
 
  begin
    clrscr;
    randomize;
    for i:=1 to 4 do
      readln(a[i]);
    s1 :=0; s2 :=0; r1:=1; r2:=1;
    max := a[1]; min := a[1];
    for i:=1 to 4 do
    begin
      if a[i] > 0 then
      begin
        inc(kol);
        b[i] :=a[i];
      end;
 
     if   a[i] < min then
      begin
         min := a[i];
         r1:=i;
      end;
      if a[i] >  max then
      begin
        max := a[i];
        r2 := i ;
      end;
    end;
      for i:=1 to 4 do
      begin
        if i > r1 then s1:= s1 +a[i];
        if i > r2 then s2 := s2 + a[i];
      end;
 
    if s1 > s2 then
      writeln('summa el posle 1-go min bolshe');
    if s2 > s1 then
      writeln('summa el posle 1-go max bolshe');
      writeln('Massiv iz pologitelnix elementov:');
 
    for i:=1 to 4 do
     begin
       if b[i] <> 0 then
       write(b[i]:3);
     end;
     readln;
   end.

@Kalina 0 / 0 / 0 Регистрация: 13.11.2012 Сообщений: 4
		1
	Из положительных элементов исходного массива сформировать новый массив 15.11.2012, 11:05. Показов 2052. Ответов 1 Метки нет (Все метки) Составить на языке Паскаль программу, управляющуюся с помощью меню. 1)Из положительных элементов исходного массива сформировать новый массив; 2)Определить, что больше – сумма элементов, стоящих после максимального элемента, или сумма элементов, стоящих после минимального элемента. Помогите пожалуйста, а то вообще не понимаю 0

	15.11.2012, 12:48

Из положительных элементов исходного массива сформировать новый массив

Решение