среднее арифметическое всех нечетных элементов массива

@drago72 · Регистрация: 10.04.2010

Author24 — интернет-сервис помощи студентам

вот ещё 2 задачки
1)Найти среднее арифметическое все нечетных элементов массива
2)элементы попадающие в промежуток от А до В, где А и В вводятся с клавиатуры;
буду очень признателен кто решит получит плюс и помогу всегда хоть в чём

@Law[L]esS · 10.04.2010, 13:32

Pascal

var
 n,i,max:integer;
begin
 readln(n);
 max:= n mod 10;
 n:= n div 10;
 repeat
   if n mod 10 > max then max:= n mod 10;
   n:= n div 10;
   if max = 9 then break;
 until(n = 0);
 writeln(max);
end.

Pascal

const
 n = 10;
var
 a:array[1..n] of integer;
 i,sum,count:integer;
begin
 for i:= 1 to n do begin
   a[i]:=random(20);
   write(a[i],' ');
   if odd(a[i]) then begin
     sum:= sum + a[i];
     inc(count);
   end;
 end;
 writeln;
 writeln(sum div count);
end.

@STGE · 10.04.2010, 13:37

Law[L]esS, во второй программе end забыли поставить.

@Law[L]esS · 10.04.2010, 13:39

Pascal

const
 n = 10;
var
 c:array[1..n] of integer;
 a,b,i:integer;
begin
 repeat
   readln(a);
 until(a < n);
 repeat
   readln(b);
 until(b < n) and (b > a);
 writeln('ishodnij massiv ');
 for i:= 1 to n do begin
   c[i]:= random(20);
   write(c[i], ' ');
 end;
 writeln;
 writeln('chisla ot a do b ');
 for i:= a to b do
 write(c[i], ' ');
end.

Law[L]esS, во второй программе end забыли поставить.

спасибо, исправил

@drago72 · 10.04.2010, 15:07 **[ТС]**

СПС всем но так как я нуб объяснити что обозначает каждая надпись типа :
var-вводим переменные и т.п и ещё вопрос это 2 задачи или три?

@drago72 0 / 0 / 0 Регистрация: 10.04.2010 Сообщений: 26
		1
	среднее арифметическое всех нечетных элементов массива 10.04.2010, 13:08. Показов 1929. Ответов 4 Метки нет (Все метки) вот ещё 2 задачки 1)Найти среднее арифметическое все нечетных элементов массива 2)элементы попадающие в промежуток от А до В, где А и В вводятся с клавиатуры; буду очень признателен кто решит получит плюс и помогу всегда хоть в чём 0

@STGE 773 / 578 / 324 Регистрация: 17.06.2009 Сообщений: 1,188
	10.04.2010, 13:37	3
	Law[L]esS, во второй программе end забыли поставить. 0

@drago72 0 / 0 / 0 Регистрация: 10.04.2010 Сообщений: 26
	10.04.2010, 15:07 [ТС]	5
	СПС всем но так как я нуб объяснити что обозначает каждая надпись типа : var-вводим переменные и т.п и ещё вопрос это 2 задачи или три? 0