Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Даны три упорядоченных по возрастанию файла целых чисел. Напечатайте наименьшее из чисел, встречающихся во всех 3 файлах https://www.cyberforum.ru/ pascal/ thread2163895.html
Пусть даны три упорядоченных по возрастанию файла целых чисел. Напечатайте наименьшее из чисел, встречающихся во всех трех файлах. Файлы должны быть прочитаны не более одного раза.
Программа, выводящая на экран расписание учителя Pascal
Товарищи, нужна ваша профессиональная помощь. Задача следующая. Составить программу, выводящую на экран расписание учителя (номер урока, время начала урока, класс, предмет, номер ...
Составить трассировочную таблицу Pascal
Помогите составить трассировочную таблицу. Program OIL; const N = 20; var a: array of integer; MaxIncr, NumIncr, i: integer; begin MaxIncr:=1; NumIncr:=1; for i:=1 to N-1 do
Pascal Составить трассировочную таблицу Помогите составить трассировочную таблицу. program XOI; uses crt; var a,b,c: real; begin clrscr; write('Vvedite A,B,C: '); readln(a,b,c); if (a=b) and (b=c) then writeln('Treugolnik... https://www.cyberforum.ru/ pascal/ thread2163783.html
Pascal Составить трассировочную таблицу для кода https://www.cyberforum.ru/ pascal/ thread2163782.html
Помогите составить трассировочную таблицу. Program WHY; var x, p, l: real; i: integer; begin p := 1; l := 1; for i := 1 to 64 do if (i mod 2 = 1) then p := p * (x - i)
Pascal Составить трассировочную таблицу
Помогите составить трассировочную таблицу. Program IKS; var m:integer; begin read(m); if m=1 then begin writeln(' Декабрь (31), январь (31) , февраль (28, 29) '); end; if m=2 then
Составить трассировочную таблицу Pascal
мне дали программу помогите составить трассировочную таблицу. 1) Uses crt; var a:array of integer; i,j,n,max,imax,imin,b:integer; begin write('N: '); readln(n); imax:=1;
Pascal Вычислить сумму последних в последовательсти отрицательных чисел Ввести допустимое кол-во изменений знака в последовательности чисел и числа последовательности,кол-во которых заранее неизвестно. Последним числом последовательности является число,после ввода... https://www.cyberforum.ru/ pascal/ thread2163703.html
Pascal Вывести на экран те числа из файла number.dat, которые не входят в данную последовательность https://www.cyberforum.ru/ pascal/ thread2163491.html
Компонентами файла number.dat являются целые числа. Во входном файле data_in.txt расположена последовательность целых чисел. Веэывести на экран те числа из файла number.dat, которые не входят в...
Pascal Проверить, упорядочены ли слова в строке по длине Помогите!!!! Дана строка, состоящая из слов, разделённых пробелами. Проверить, упорядочены ли слова в строке по длине. https://www.cyberforum.ru/ pascal/ thread2163462.html
Эксперт Pascal/Delphi
6645 / 4470 / 4749
Регистрация: 05.06.2014
Сообщений: 21,971
24.12.2017, 09:36 0

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

24.12.2017, 09:36. Показов 1185. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено drmorison как решение

Решение

Pascal
1
2
3
4
5
6
7
s:=0;
for i:=1 to n do
 s:=s+a[i];
s:=s/n;
for i:=1 to n do
if a[i]>s then
 write(a[i]);


Вернуться к обсуждению:
Вывести на экран элементы одномерного массива, большие среднего арифметического
0
Заказывайте контрольные, курсовые и дипломы здесь.
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.12.2017, 09:36
Готовые ответы и решения:

Вывести на экран только те элементы массива, которые отклоняются от среднего арифметического
Ребята помогите решить вот такую задачу. Задан целочисленный массив А. Напишите программу, которая...

Заполнить все элементы большие 5 значением среднего арифметического элементов массива
заполните все элементы, которые больше 5, значением среднего арифметического всех элементов массива

Элементы массива, большие среднего арифметического перенести в начало
Помогите. У меня не делиться массив. Задание прилогается. Задание: Разделить массив на две...

Функция обнуляющая все элементы массива большие среднего арифметического
Написать функцию, которая в массиве вещественных чисел обнуляет все элементы, которые больше...

1
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.