Прошу проверить и посмотреть мою программу

@antonvladi · Регистрация: 06.09.2019

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

Определить среднее арифметическое положительных чисел, лежащих после минимального значения в массиве В (0..N-1). Числа, расположенные до минимального рассортировать по возрастанию.

Pascal

uses crt;
var b:array[0..99] of real;
    n,i,imn,j:integer;
    x,mn,sr:real;
begin
clrscr;
randomize;
write('Размер массива n=');
readln(n);
writeln('Исходный массив:');
for i:=0 to n-1 do
 begin
  b[i]:=10*random;
  write(b[i]:4:1);
 end;
writeln;

Пожалуйста, напишите, что не так

@ZX Spectrum-128 · 06.09.2019, 11:34

antonvladi, в программе только заполнение массива.

@antonvladi · 06.09.2019, 13:03 **[ТС]**

Извините, но я не поняла. Не могли бы вы мне написать программу, я не могу понять, в чём ошибка

(!!!

@mr-Crocodile · 06.09.2019, 16:29

Сообщение от antonvladi

Извините, но я не поняла.

у тебя написано только начало программы.
допиши end. в конец:

Pascal

uses crt;
var b:array[0..99] of real;
    n,i,imn,j:integer;
    x,mn,sr:real;
begin
clrscr;
randomize;
write('Размер массива n=');
readln(n);
writeln('Исходный массив:');
for i:=0 to n-1 do
 begin
  b[i]:=10*random;
  write(b[i]:4:1);
 end;
writeln;
end.

ну и у тебя там есть только заполнение массива случайными числами (и не очень корректное, так как в ТЗ подразумеваются и отрицательные числа в массиве). А ещё почему ты решила, что в массиве должны быть вещественные числа? Целые получить проще и выглядят они лучше

А теперь тебе надо написать поиск минимального значения (сразу ищи его индекс в массиве).
потом напиши вычисление среднего арифметического,
потом напиши сортировку подмассива.

@antonvladi · 08.09.2019, 19:41 **[ТС]**

О горе мне!( Спасибо вам огромное, вы мне очень помогли!)

@mr-Crocodile · 09.09.2019, 09:27

Не по теме:

Сообщение от antonvladi

О горе мне!( Спасибо вам огромное, вы мне очень помогли!)

это :sarcasm: ?
чем же я помог то?! Тем, что сказал, что тут нет того, что тебе надо?

Ты лучше скажи, получилось написать программу? Если нет - то что не получается?
Вообще, программка не совсем банальная, но и ничего сложного нет.

@antonvladi · 10.09.2019, 22:58 **[ТС]**

Создать не получилось, ибо надо на языке Си,, а я знаю только базу Паскаля

@ZX Spectrum-128 6810 / 4567 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	06.09.2019, 11:34	2
	antonvladi, в программе только заполнение массива. 0

@antonvladi 1 / 1 / 1 Регистрация: 06.09.2019 Сообщений: 28
	06.09.2019, 13:03 [ТС]	3
	Извините, но я не поняла. Не могли бы вы мне написать программу, я не могу понять, в чём ошибка (!!! 0

@antonvladi 1 / 1 / 1 Регистрация: 06.09.2019 Сообщений: 28
	08.09.2019, 19:41 [ТС]	5
	О горе мне!( Спасибо вам огромное, вы мне очень помогли!) 0

@mr-Crocodile
	09.09.2019, 09:27 #6
	Не по теме: Сообщение от antonvladi О горе мне!( Спасибо вам огромное, вы мне очень помогли!) это :sarcasm: ? чем же я помог то?! Тем, что сказал, что тут нет того, что тебе надо? Ты лучше скажи, получилось написать программу? Если нет - то что не получается? Вообще, программка не совсем банальная, но и ничего сложного нет. 0

@antonvladi 1 / 1 / 1 Регистрация: 06.09.2019 Сообщений: 28
	10.09.2019, 22:58 [ТС]	7
	Создать не получилось, ибо надо на языке Си,, а я знаю только базу Паскаля 0

Прошу проверить и посмотреть мою программу

Решение