19.04.2017, 15:10 | #1 (permalink) |
Новичок
Регистрация: 19.04.2017
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Pascal
а) найти произведение элементов больших - 2 и сумму последних 10 элементов б) удалить минимальный элемент вектора в) получить среднеарифметическое значение элементов с четными индексами г) поменять местами максимальные элементы из первых десяти и последних десяти элементов вектора. |
19.04.2017, 15:10 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Возможно, решение проблемы пойдет заметно быстрее если ознакомиться с аналогичными темами Pascal ABC Pascal |
19.04.2017, 15:17 | #2 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Простите - ясельными задачками не занимаемся. Давайте-ка сами. Если что-то не будет получаться - поможем исправить и отладить ВАШУ программу.
|
19.04.2017, 15:20 | #3 (permalink) |
Специалист
Регистрация: 27.04.2015
Адрес: Москва
Сообщений: 1,423
Записей в дневнике: 4
Сказал(а) спасибо: 52
Поблагодарили 53 раз(а) в 16 сообщениях
Репутация: 18120
|
Ник интересный Год рождения ? возраст ? или поза
Сорри что не по теме, не смог сдержаться, ничего личного ... но Владимир как бы намекнул |
19.04.2017, 15:30 | #5 (permalink) |
Новичок
Регистрация: 19.04.2017
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
если это ясельное, то какая же я тупая(
что сама то, я вообще не понимаю, мне крышка( |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
19.04.2017, 15:33 | #6 (permalink) |
Специалист
Регистрация: 27.04.2015
Адрес: Москва
Сообщений: 1,423
Записей в дневнике: 4
Сказал(а) спасибо: 52
Поблагодарили 53 раз(а) в 16 сообщениях
Репутация: 18120
|
Ну хоть что то пробовали написать, если мы вам просто напишем готовый код, то какая от него польза если вы преподу даже объяснить по этому коду ничего не сможет ... меня даже формулировка "Вектор" смущает, наверное имелось ввиду массив, так как вектор это в математике а в программировании это массив
|
19.04.2017, 15:46 | #7 (permalink) |
Новичок
Регистрация: 19.04.2017
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
мне просто показать нужно, объяснять не надо.
мне вообще инфа не нужна по сути, просто для общего развития что ли. Может напишите всё таки, а потом просите что хотите, интересные фотографии например) |
19.04.2017, 16:50 | #8 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Ладно, живите: Код:
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. |
|
19.04.2017, 17:15 | #9 (permalink) |
Новичок
Регистрация: 19.04.2017
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Спасибо!!!) Вы такой хороший)
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Метки |
pascal, одномерный массив |
|
|