| Автор | Помогите пожалуйста с Паскалем |
|---|
Вычисление целого среднеарифметического значения среди всех отрицательных элементов массива (содержащего и положительные значения), расположенных начиная с "К"-го по порядку элемента. Длина массива и значение "К" вводятся с клавиатуры.Печатать элементы массива по 10 штук. Формату :6. Тип обрабатываемых данных целые.
С кодом. За вознаграждение. |
| за 10000 золота, помогите плиз. |
| я бы помог не знаю как сделать переменной длинны массив( насколько мне известно это невозможно. можно сделать очень длинный и работать только с указанным промежутком), а остальное фигня. |
| на первом курсе мне подобную фигню давали писать, но длину массиву мы задавали сразу. если тебе не срочно или кто не поможет раньше я завтра попробую помочь. |
для Dzirt_war:
Хорошо, помогу за 500 золота, устроит? |
| Лан, ща сделаю.. Если совесть есть - перекинеш сколько не жалко.. |
| Я бы помог ,но учительница заругаетъ... |
var mas: Array[1..40] of integer;/*our massive*/
var count: integer;/*type of onteger*/
var res:integer;/*result*/
..........
var i,k,col:integer;
begin
col:=0;k:=0;
for i:=0 to count do begin
if(mas[i] < 0) then begin
k:=k+mas[i];
inc(col);
end;
res:=k div col;
end; |
Чуть подправил и енды пороставлял
var mas: Array[1..40] of integer;/*our massive*/
var count: integer;/*type of onteger*/
var res:integer;/*result*/
..........
var i,k,col:integer;
begin
col:=0;k:=0;
for i:=0 to count do
if(mas[i] < 0) then begin
k:=k+mas[i];
inc(col);
end;
res:=k div col;/*Или res:=round(k/col); только может придется использовать приведение к типу integer;*/
end; |
| тема закрыта by Dzirt_war (2011-03-03 01:27:45) |
|---|
