1. Информатика
  2. Напишите программу на паскале

Напишите программу на паскале найти минимальный элемент массива заменить все элементы массива до минимального средним арифметическим элементов массива

allknown allknown    1   01.10.2019 06:00    1

Ответы
gumarin78 gumarin78  09.10.2020 07:09
PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018Внимание! Если программа не работает, обновите версию!

begin

 var a := SeqRandomReal(ReadInteger('n='), -10, 10)

     .Select(t -> real(Round(t, 2))).ToArray;

 a.Println;

 var (imin, avg) := (a.IndexMin, a.Average);

 a := a.Select((v, i)-> i < imin ? avg : a[i]).ToArray;

 a.Println

end.


Напишите программу на паскале найти минимальный элемент массива заменить все элементы массива до мин
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
baus100 baus100  18.09.2019 22:00
Определите объём видеопамяти компьютера, который необходим для реализации графического режима монитора true color с разрешающей точек....
fogive fogive  18.09.2019 22:00
Уколи р рублей. рассчитайте сколько долларов и сколько евро он может купить на эти деньги...
azamatarslanov0 azamatarslanov0  18.09.2019 22:00
7класс написать доклад « вычислительной техники»...
nastusya0307 nastusya0307  18.09.2019 22:00
Напишите программу, которая определяет минимальное число из введённой последовательности положительных чисел (длинна последовательности не ограничена). для завершения ввода нужно...
tyler02169 tyler02169  18.09.2019 22:00
Найти произведение элементов, кратных 3 в массиве, заданном датчиком случайных чисел на интервале( -28,27). размер производной....
вероника1060 вероника1060  18.09.2019 22:00
Лодка выдержит наплаву250 кг, кирпич весит 1450г. выдержит ли лодка х кирпичей. подсчитайте максимальное количество кирпичей, которое выдержит лодка. pascal...
Дентсик901 Дентсик901  18.09.2019 22:00
1. для кодирования одного пикселя используется 4 байта. фотографию размером 1024×2048 пикселей сохранили в виде несжатого файла. определите размер получившегося файла в мегабайтах...
fizaliya1992 fizaliya1992  18.09.2019 22:00
Даны 2 числа, если их сумма больше 10, то вывести на экран их удвоенное произведение, а иначе большее из чисел заменить их суммой, а меньшее разностью. pascal...
taidakv taidakv  18.09.2019 21:50
Алгоритм вычисления значения функции f(n), где n – натуральное число, задан следующими соотношениями: f(1) = 1 f(2) = 3 f(n) = f(n–1) * n + f(n–2) * (n – 1) , при n 2 чему равно...
pzuzuk pzuzuk  18.09.2019 21:50
Для хранения целого числа со знаком используется один байт. каким кодом храниться в памяти компьютера десятичное число (-104)...

Популярные вопросы