PascalABC.NET

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
PascalABC.NET Ко всем нулевым элементам массива прибавить число n, ко всем отрицательным элементам прибавить число k https://www.cyberforum.ru/ pascalabc-net/ thread2579005.html Дан массив целых чисел в диапазоне от -10000 до 10000. Ко всем нулевым элементам массива прибавить число n, ко всем отрицательным элементам прибавит число k, из положительных элементов вычтет число...	PascalABC.NET Напишите подпрограмму, которая в массиве заменит все элементы, у которых 1-я и последняя цифры равны на 0 Две массив, заполненный случайными натуральными числами в диапазоне от 1 до 30000. Напишите подпрограмму, которая в этом массиве заменит все элементы у которых 1-я и последняя цифры равны( включая...
PascalABC.NET Напишите подпрограмму, которая в массиве заменит все элементы, у которых среднее арифметическое всех цифр больше 5 Напишите подпрограмму, которая в этом массиве заменит все элементы, у которых среднее арифметическое всех цифр больше 5, заменить на число 999. Например из массива: 1 22 67 9994 533 76, получим 1... https://www.cyberforum.ru/ pascalabc-net/ thread2578998.html	PascalABC.NET Найти и вывести количество элементов, дробная часть которых меньше 0,3 Пожалуйста с помощью Массивов Формат ввода: В первой строке - количество элементов массива не превосходящее 100. На второй строке через пробел элементы массива. Формат вывода: Целое число.... https://www.cyberforum.ru/ pascalabc-net/ thread2578996.html
PascalABC.NET Найти и вывести количество элементов, целая часть которых не делится на 4 без остатка Задача: две массив вещественных чисел. Найти и вывести количество элементов, целая часть которых не делится на 4 без остатка. Формат ввода: в первой строке- количество элементов массива не...	PascalABC.NET Инвертировать часть массива с последнего минимального до последнего элемента массива Инвертировать часть массива с последнего минимального до последнего элемента массива.Помогите пожалуйста) https://www.cyberforum.ru/ pascalabc-net/ thread2578976.html
PascalABC.NET Взаимодействие файлов Здравствуйте, подскажите, если написать программу, которая выполняет какую-то графику, и сохранить ее одним файлом, как в другом файле впоследствии вызвать ту программу? https://www.cyberforum.ru/ pascalabc-net/ thread2578834.html	PascalABC.NET Ввод имени после нажатия "Да" Помогите, пожалуйста, написать программу. Появляеться две кнопки "да" и "нет". Когда нажимаешь кнопку "Да" пишеться Введите ваше имя и можно ввести буквенную ответ
PascalABC.NET Написать код программы в PascalABC.net Помогите, пожалуйста, написать программу. Появляютться три кнопки. На первой написанно "1". На второй "2". На третьей "3". Если нажимаешь первую кнопку. Пишется "Тест" и появляюся две кнопки "ДА" и... https://www.cyberforum.ru/ pascalabc-net/ thread2578792.html	PascalABC.NET Выяснить значение аргумента f(x,y) https://www.cyberforum.ru/ pascalabc-net/ thread2578705.html Напишите программу которая показывает на мониторе значения функции z= f(x , y). Аргумент ,,x" берет значения от x1 до x2 с ступенькой ∆x,аргумент ,,y'' берет значения от y1 до y2 с ступенькой ∆y....
Выяснить значение функции PascalABC.NET Используя инструкцию ,,while" напишите программу которая показывает на мониторе значения функции ,,y"для значения аргумента с x1 до x2 с ступенькой ∆x. y=x/2	PascalABC.NET Организовать меню со след функциями https://www.cyberforum.ru/ pascalabc-net/ thread2578485.html Здравствуйте.Нужна ваша помощь.Мне нужно организовать меню со след функциями: 1:Заполнить массив с клавиатуры 2:Заполнить массив случайными числами от 1 до 20 3:Вывести вывод массива 4:Умножить...

ZX Spectrum-128

6806 / 4565 / 4817

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

Сообщений: 22,438

04.02.2020, 11:24

Переписать во второй массив те элементы первого, которые больше среднего арифметического всех элементов массива - PascalABC.NET - Ответ 14226230

04.02.2020, 11:24. Показов 459. Ответов 1

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

Ответ

Pascal

const
  n = 100;
 
type
  tmas = array[1..n] of real;
 
var
  i, k: longint;
  x, y: tmas;
  a, b: integer;
  sr: real;
 
begin
  k := 0;
  sr := 0;
  write('Введите А, B: ');
  readln(a, b);
  Writeln('Исходный массив:');
  for i := 1 to n do
  begin
    x[i] := a + Random(b - a + 1);
    Write(x[i], ' ');
    sr := sr + x[i];
  end;
  sr := sr / n;
  Writeln;
  for i := 1 to n do
    if x[i] > sr then
    begin
      inc(k);
      y[k] := x[i];
    end;
  Writeln('Среднее: ', sr);
  Writeln('Новый массив:');
  for i := 1 to k do
    Write(y[i], ' ');
end.

Вернуться к обсуждению:
Переписать во второй массив те элементы первого, которые больше среднего арифметического всех элементов массива PascalABC.NET

Programming

Эксперт

94731 / 64177 / 26122

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

Сообщений: 116,782

04.02.2020, 11:24

Готовые ответы и решения:

Непонятная/странная/сложная/интересная на двумерные массивы.
В данном двумерном массиве целого типа посчитать количество нечетных элементов, находящихся в её...

Сложная задача на перестановки
Перестановкой размера n называется массив ⟨a1, a2, . . . , an⟩ различных чисел от 1 до n. Каждое...

Задача не сложная на тему строки.
Создайте программу, которая запрашивает тестовую строку и заменяет все слоги "ра" на "пар"....

Сложная задача(для меня во вском случае).
На паскаль. Через множества. Даны следующие описания переменных: type город=(a,b,c,d,e,f,g,h); ...

IT_Exp

Эксперт

87844 / 49110 / 22898

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

Сообщений: 92,604

04.02.2020, 11:24

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

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

Простая но сложная задача-ПОМОГИТЕ! массивы на php
вот задали:cry:, а я только учусь php ВОТ ОНО: найти сумму элементов двумерного массива: 1)-по...

Сложная zadacha на массивы,(надо на зачет) :)
Пусть известны данные многолетних наблюдений за количеством выпавших осадков на определенной...

Сложная задача
Привет всем. Есть такая задача, которую никак не могу решить: товары отгружаются дистрибьюторам...

Наверх