Заменить элементы, стоящие после минимального, на среднее арифметическое всего ряда

11.11.2013, 01:04. Показов 573. Ответов 0

Метки нет (Все метки)

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

Дан массив L1,..,L20. Заменить элементы, стоящие после Lmin, на среднее арифметическое всего ряда.
Задачу я решил, вот код:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
const n = 20;
var
  i, min:integer;
  s: real;
  L: array [1 .. n] of real;
 
begin
  writeln('DaH MACCuB L[1..20] ');
min := 1; s := 0;
   for i:=1 to n do begin
    writeln('BbeDite elementi massiva  ',i);
    readln(L[i]);
 if L[i] < L[min] then min := i;
    s := s + L[i];
  end;
 
  s := s / n;
  for i := 1 to n do begin
    if i > min then L[i] := s;
    writeln('i= ',L[i]:4:0);
  end;
  readln;
end.

Но перед самим заданием указано вот это:
> Ввести одномерный массив заданной размерности, предусмотреть ввод из файла и с помощью инициализации . Вывести исходный массив с комментарием на форму в компонент Label и в файл.
> Произвести соответствующие вычисления в массиве. Вывести результаты с комментарием на форму в компонент Label и в файл.
Как это можно сделать?

Добавлено через 1 час 13 минут
Подскажите пожалуйста.

Добавлено через 1 час 3 минуты
Помогите пожалуйста, в 1 раз с этим сталкиваюсь

Добавлено через 1 час 9 минут
Код переписал, задания все еще в силе, помогите кто-нибудь(

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
var s:array[1..20] of real;
i,k:integer; sum,min:real;
begin
clrscr;
randomize;
for i:=1 to 20 do begin
s[i]:=random(20);
write(s[i]:8:2);
end;writeln;
sum:=0; min:=100;
for i:=1 to 20 do
if  min>s[i] then begin min:=s[i];  k:=i;end;
sum:=sum+s[i];
for i:=k+1 to 20  do
s[i]:=sum/20;
for i:=1 to 20 do
write(s[i]:8:2);
end.

IT_Exp

Эксперт

34794 / 4073 / 2104

Регистрация: 17.06.2006

Сообщений: 32,602

Блог

11.11.2013, 01:04

Ответы с готовыми решениями:

Заменить все элементы, стоящие после Lmin на среднее арифметическое всего ряда
Дан массив Li,...,L20. Заменить все элементы, стоящие после Lmin на среднее арифметическое всего...

Все элементы массива, стоящие выше и левее минимального, заменить на среднее арифметическое минимального и максимального
В массиве все элементы, стоящие выше и левее минимального элемента, заменить на среднее...

Заменить все элементы массива стоящие после минимального на значение минимального элемента
Заменить все элементы массива стоящие после минимального на значение минимального элемента. вот...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

Регистрация: 17.02.2009

Сообщений: 30,364

Блог

11.11.2013, 01:04

Помогаю со студенческими работами здесь

В массиве все нечетные элементы, стоящие ниже минимального элемента массива и стоящие слева от максимального значения массива заменить на 0
1) в массиве все нечетные элементы, стоящие ниже минимального элемента массива и стоящие слева от...

Если среди первых пяти элементов есть отрицательные числа то заменить элементы с шестого по 10 на среднее арифметическое всего ряда
ПОМОГИТЕ ПОЖАЛУЙСТА ИСПРАВИТЬ ОШИБКУ Дан массив v1,...,v10. Если среди первых пяти элементов есть...

Стоящие до минимального элемента, разделить на среднее арифметическое ненулевых элементов данного массива
Ввести одномерный массив X(N) (N<=30) целых чисел. Все элементы его, стоящие до минимального...

Заменить все элементы массива, стоящие после минимального, нулями
Ввести массив a, a, ...a. целого типа и заменить все его элементы стоящие после минимального...

Заменить все элементы массива, стоящие после минимального, нулями
Ввести массив а , а ,..., а целого типа и заменить все его элементы, стоящие пос¬ле минимального,...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .
Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .

Наверх