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

@Точилка-Маня · Регистрация: 28.02.2011

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

@Puporev · 16.03.2011, 13:01

Pascal

const n=5;
var a:array[1..n] of integer;
     i:integer;
     s:real;
begin
writeln('Введите элементы массива-целые числа');
s:=0;
for i:=1 to n do
 begin
  write('a[',i,']=');
  read(a[i]);
  s:=s+a[i];
 end;
s:=s/n;
writeln('Массив:');
for i:=1 to n do
write(a[i],' ');
writeln;
write('Ср. арифм.=',s:0:2);
end.

@Точилка-Маня · 16.03.2011, 13:14 **[ТС]**

спасибо)
а не подскажете, как найти минимальный из пяти элементов?

@Puporev · 16.03.2011, 14:02

Pascal

var min:integer;
............................
writeln('Массив:');
min:=a[1];
for i:=1 to n do
 begin
  write(a[i],' ');
  if a[i]<min then min:=a[i];
 end;
writeln;
write('Минимум=',min);

Добавлено через 1 минуту
Вообще есть в Важном специальная тема чтобы такие глупости не спрашивали.
Стандартные операции с массивами (матрицами)

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

Решение

Решение

@Точилка-Маня 1 / 1 / 0 Регистрация: 28.02.2011 Сообщений: 20
		1
	Найти среднее арифметическое всех элементов массива 16.03.2011, 12:54. Показов 15663. Ответов 3 Метки нет (Все метки) ввести с клавиатуры массив из 5 элементов найти среднее арифметическое всех элементов массива Миниатюры 0

@Точилка-Маня 1 / 1 / 0 Регистрация: 28.02.2011 Сообщений: 20
	16.03.2011, 13:14 [ТС]	3
	спасибо) а не подскажете, как найти минимальный из пяти элементов? 0

Опции темы