Найти среднее значение элементов массива, минимальное среди положительных значений

@yaho · Регистрация: 06.09.2012

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

1. Заполнить массив случайными числами от -15 до15, найти среднее значение элементов массива, минимальное значение среди положительных значений, сумму отрицательных.

@ermolay · 06.09.2012, 16:48

Pascal

const
  nmax=100;
var
  a: array[1..nmax] of integer;
  i,min,sum,sum1,n: integer;
begin
  write('Сколько элементов в массиве? ');
  readln(n);
  randomize;
  min:=32768;
  sum:=0;
  sum1:=0;
  writeln('Массив:');
  for i:=1 to n do
  begin
    a[i]:=random(31)-15;
    write(a[i],' ');
    sum:=sum+a[i];
    if (a[i]>0)and(a[i]<min) then min:=a[i];
    if a[i]<0 then sum1:=sum1+a[i];
  end;
  writeln;
  writeln('Среднее значение элементов массива = ',sum/n:4:2);
  writeln('Минимальное значение среди положительных элементов = ',min);
  writeln('Сумма отрицательных элементов = ',sum1);
  readln;
end.

@yaho 0 / 0 / 0 Регистрация: 06.09.2012 Сообщений: 36
		1
	Найти среднее значение элементов массива, минимальное среди положительных значений 06.09.2012, 15:20. Показов 2137. Ответов 1 Метки нет (Все метки) 1. Заполнить массив случайными числами от -15 до15, найти среднее значение элементов массива, минимальное значение среди положительных значений, сумму отрицательных. 0

	06.09.2012, 16:48

Найти среднее значение элементов массива, минимальное среди положительных значений

Решение