Дан массив размерностью n, данные водятся с клавиатуры. Требуется найти минимальное(ые) значение(я) и заменить его(их) на среднее этого массива.
Заранее спасибо.
Поиск минимального и замена его на среднее в одномерном массиве
Сделаю. 255507394
Мои мысли настолько гениальны, что санитары уже приехали!
Ася 255507394.
Ася 255507394.
-
Zekonomata
- Сообщения: 2
- Зарегистрирован: 21 ноя 2010, 19:00
- Откуда: CПб
Прошу прощения, но аси нет
Вот мои наработки, добрался все-таки до флешки. И наперед, подскажите как писать, чтобы была в том ввиде как и в паскале?
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.
Вот мои наработки, добрался все-таки до флешки. И наперед, подскажите как писать, чтобы была в том ввиде как и в паскале?
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.