Технический форум

Технический форум (http://www.tehnari.ru/)

- Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)

- - Pascal (http://www.tehnari.ru/f43/t253353/)

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

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

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

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

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

Цитата:

Сообщение от Anika69 (Сообщение 2480435)

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

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

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

Цитата:

Сообщение от Anika69 (Сообщение 2480446)

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

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

Цитата:

Сообщение от Anika69 (Сообщение 2480434)

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.

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