Pascal

[Anika69]

Дан вектор А [1:25].
а) найти произведение элементов больших - 2 и сумму последних 10 элементов
б) удалить минимальный элемент вектора
в) получить среднеарифметическое значение элементов с четными индексами
г) поменять местами максимальные элементы из первых десяти и последних десяти элементов вектора.

 

[Vladimir_S]

Простите - ясельными задачками не занимаемся. Давайте-ка сами. Если что-то не будет получаться - поможем исправить и отладить ВАШУ программу.

 

[MagentaTiger]

Ник интересный Год рождения ? возраст ? или поза
Сорри что не по теме, не смог сдержаться, ничего личного ... но Владимир как бы намекнул )

 

[Anika69]

19 лет мне. Хорошая поза)

 

[Anika69]

если это ясельное, то какая же я тупая(
что сама то, я вообще не понимаю, мне крышка(

 

[MagentaTiger]

если это ясельное, то какая же я тупая(
что сама то, я вообще не понимаю, мне крышка(

Ну хоть что то пробовали написать, если мы вам просто напишем готовый код, то какая от него польза если вы преподу даже объяснить по этому коду ничего не сможет ... меня даже формулировка "Вектор" смущает, наверное имелось ввиду массив, так как вектор это в математике а в программировании это массив

 

[Anika69]

мне просто показать нужно, объяснять не надо.
мне вообще инфа не нужна по сути, просто для общего развития что ли.
Может напишите всё таки, а потом просите что хотите, интересные фотографии например)

 

[Vladimir_S]

Может напишите всё таки, а потом просите что хотите, интересные фотографии например)

Хм... заманчиво. Тем более, что

19 лет мне. Хорошая поза)

Ну да впрочем годы мои не те. Хотя...
Ладно, живите:

Var
 A:Array[1..25] of Integer;
 i,Imin,N,Imax1,Imax2:byte;
 Prod:LongInt;
 Sum,Min,Max1,Max2,D:Integer;
 ArMean:Real;

Begin
 N:=25;
 Randomize;
 Prod:=1;
 Sum:=0;
 Writeln('Initial array:');
 for i:=1 to N do
  begin
   repeat
    A[i]:=-5+Random(10);
   until A[i]<>0;
   Write(A[i]:5);
   if A[i]>-2 then Prod:=Prod*A[i];
   if i>N-10 then Sum:=Sum+A[i];
  end;

 Writeln;
 Writeln;

 Writeln('Product = ',Prod);
 Writeln('Sum of last 10 elements = ',Sum);

 Writeln;
 Writeln;

 Imin:=1;
 Min:=A[1];
 for i:=2 to N do
  if A[i]<Min then
   begin
    Imin:=i;
    Min:=A[i];
   end;
 for i:=Imin+1 to N do A[i-1]:=A[i];
 N:=N-1;
 Writeln('Array with erased minimal:');
 for i:=1 to N do Write(A[i]:5);

 Writeln;
 Writeln;

 ArMean:=0;
 for i:=1 to (N div 2) do
  ArMean:=ArMean+A[2*i];
 Writeln('Arithmetic mean = ',ArMean/N:0:3);

 Writeln;
 Writeln;


 Imax1:=1;
 Max1:=A[1];
 for i:=2 to 10 do
  if A[i]>Max1 then
   begin
    Imax1:=i;
    Max1:=A[i];
   end;

 Imax2:=N;
 Max2:=A[N];
 for i:=N-1 downto N-9 do
  if A[i]>Max2 then
   begin
    Imax2:=i;
    Max2:=A[i];
   end;

 D:=Max1;
 A[Imax1]:=Max2;
 A[Imax2]:=D;
 Writeln('Array after exchanging the maximals:');
 for i:=1 to N do Write(A[i]:5);

 Readln
End.

 

[Anika69]

Спасибо!!!) Вы такой хороший)tehnoangeltehnoangel