Составить программу определения среднего арифметического N чисел, введенных с клавиатуры

@лоло · Регистрация: 27.04.2013

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

Составить программу определения средне. ариф. N чисел, введенных с клавиатуры.

@ArLeKiN_O_O_ · 20.06.2013, 22:57

Вариант I

Pascal

program arifm;
const n=10;
var a:array [1..n] of integer;
    i:byte;
    b,sum:integer;
begin
 for i:=1 to n do begin
   readln(b);
   a[i]:=b;
   sum:=sum+a[i];
 end;
 write('Среднее арим. данных ',n,' чисел равно ',sum/n);
 readln;
end.

Вариант II (Без массива)

Pascal

program arifm;
const n=10;
var i,b,sum:integer;
begin
 for i:=1 to n do begin
   readln(b);
   sum:=sum+b;
 end;
 write('Среднее арим. данных ',n,' чисел равно ',sum/n);
 readln;
 end.

@лоло 0 / 0 / 0 Регистрация: 27.04.2013 Сообщений: 33
		1
	Составить программу определения среднего арифметического N чисел, введенных с клавиатуры 20.06.2013, 20:06. Показов 11305. Ответов 1 Метки нет (Все метки) Составить программу определения средне. ариф. N чисел, введенных с клавиатуры. 0

	20.06.2013, 22:57

Опции темы

Составить программу определения среднего арифметического N чисел, введенных с клавиатуры

Решение