Страница 1 из 1
Поиск минимального и замена его на среднее в одномерном массиве
Добавлено: 22 ноя 2010, 11:44
Zekonomata
Дан массив размерностью n, данные водятся с клавиатуры. Требуется найти минимальное(ые) значение(я) и заменить его(их) на среднее этого массива.
Заранее спасибо.
Re: Поиск минимального и замена его на среднее в одномерном массиве
Добавлено: 22 ноя 2010, 18:45
Sheka
Сделаю. 255507394
Re: Поиск минимального и замена его на среднее в одномерном массиве
Добавлено: 22 ноя 2010, 21:00
Zekonomata
Прошу прощения, но аси нет
Вот мои наработки, добрался все-таки до флешки. И наперед, подскажите как писать, чтобы была в том ввиде как и в паскале?
Program LABA2;
var a:array[1..n] of integer;
sum,min,z,i,sr,n,h:integer;
begin
write('n=',n);
readln(n);
for i:=1 to n do
begin
a:=random(20);
Write(a,' ');
end;
min:=a[1];
for i:=2 to n do
if a<min then
min:=a;
z:=i;
sum:=0;
h:=n;
for i:=1 to n do begin
sum:=sum+a
end;
begin
sr:=sum/h;
a[z]:=sr
end
end.