Легкая задачка для асов Паскаль Турбо

[Suslik-LICHNOST]

Дан массив Y длины n. Сформировать массив W по формуле:
Wi = 2 ∙ Yi + | Yi |. В массиве W вычислить сумму элементов, не удовлетво-ряющих условию a ≤ Wi < b.

Если кому-то по силам решить данную задачку - буду премного благодарен. Ваш Александр.

[Chudo4258]

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var Y,W:array[1..100] of integer;
    i,n,S,a,b:integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
write('n= '); readln(n);
for i:=1 to n do
 begin
  write('Y[',i,']= ');
  readln(Y[i]);
 end;

for i:=1 to n do
 W[i]:=2*Y[i]+abs(Y[i]);

Writeln;
for i:=1 to n do
 Writeln('W[',i,']= ',W[i]);

write('a= ');Readln(a);
write('b= ');Readln(b);
S:=0;
for i:=1 to n do
 if (W[i]>=b)or(W[i]<a) then S:=S+W[i];
writeln;
Writeln('S= ',S);
readln;
end.

[Suslik-LICHNOST]

СПАСИБО огромное!!! Можно еще обратиться?

[DM_bite]

СПАСИБО огромное!!! Можно еще обратиться?

Валяй... Ждем... Только попробуй выкладывать свои наработки.

[Suslik-LICHNOST]

Все положительные элементы массива X занести в массив Y. Обнулить минимальный элемент в массиве Y.

Program Alex;
var x, y: array [1..10] of integer;
N, min, q, i: integer;
begin
writeln ('Vvedite N'); readln (N);
for i:=1 to N do
begin
write('Vvedite x[i]= '); readln (x[i]);
end;
q:=1;
for i:=1 to N do
begin
if x[i]>0 then begin y[q]:=X[i]; q:=q+1; end;
end;
min:=y[1];
for i:= 2 to q-1 do
if min>y[q] then min:=y[q];
min:=0;
for i:=1 to N do write (x[i],' ');
writeln (' - massiv X');
for i:=1 to q-1 do write (y[i],' ');
writeln ('- massiv Y');
readln;
end.

в чем ошибка? минимум не считает... и на 0 не заменяет... если не трудно - исправьте. Ваш Александр.

[Sparky]

"for i:= 2 to q-1 do
if min>y[q] then min:=y[q];
min:=0;" ошибка в этой части.
Необходимо:
for i:= 2 to q-1 do
begin
if min>y[i] then
begin
min:=y[i];
zero:=i;
end;
end;
y[zero]:=0;

Переменная zero обозначает номер элемента который нужно обнулить

[Suslik-LICHNOST]

Друг, я что-то опять не то написал....

Program Alex;
var x, y: array [1..10] of integer;
N, min, q, i, zero: integer;
begin
writeln ('Vvedite N'); readln (N);
for i:=1 to N do
begin
write('Vvedite x[i]= '); readln (x[i]);
end;
q:=1;
for i:=1 to N do
begin
if x[i]>0 then begin y[q]:=X[i]; q:=q+1; end;
end;
min:=y[1];
for i:= 2 to q-1 do
begin
if min>y[i] then
begin
min:=y[i];
zero:=i;
end;
end;
y[zero]:=0;
readln;
end.

не работает...

[Chudo4258]

Все положительные элементы массива X занести в массив Y. Обнулить минимальный элемент в массиве Y.

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var X,Y:array[1..100] of integer;
    i,n,min,k:integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
write('n= '); readln(n);
for i:=1 to n do
 begin
  write('X[',i,']= ');
  readln(X[i]);
 end;

k:=1;
for i:=1 to n do
 if X[i]>0 then begin
                      Y[k]:=X[i];
                      inc(k);
                    end;

Writeln;
for i:=1 to k-1 do  //выводим полученный массив Y
 Writeln('Y[',i,']= ',Y[i]);

writeln;
min:=Y[1]; // поиск min
for i:=2 to k-1 do
 if Y[i]<min then min:=Y[i];

for i:=1 to k-1 do
 if Y[i]=min then Y[i]:=0;

for i:=1 to k-1 do
  Writeln('Y[',i,']= ',Y[i]);

readln;
end.

[Suslik-LICHNOST]

Большое спасибо! Осталось немного задач. Можно еще воспользоваться помощью магистров? Ваш Александр.

[Suslik-LICHNOST]

В массиве для элементов с четными номерами найти индекс минимального элемента и его значение. Для элементов с нечетными номерами определить их произведение.

Мои наброски:

Program Alex;
var x: array [1..5] of integer;
N, i, b, min: integer;
begin
clrscr
writeln ('Vvedite kol-vo elementov massiva'); readln (N);
for i:=1 to N do begin
write ('x[',i,']=');
readln (x[i]) end;
min:=x[1]; qwe:=1;
for i:=1 to N do
if min>x[i] then begin min:=x[i]; qwe:=i; end;
writeln ('Nomer minimalnogo elementa = ', qwe); readln;
for i:=1 to N do
begin
if (x[i] mod 2)=0 then begin min:=x[i];
min:=x[1];
for i:= 2 to N do
if min>x[i] then min:=x[i];
if (x[i] mod 2)=1 then x[i]:=x[i+1]
writeln (x[i], min);
end;
end;
end.