kuznecovav3066
?>

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

Информатика

Ответы

fhf3624
1.
begin
 var a:=ArrRandom(10,1,50); a.Println;
 var c:=ReadInteger('c = ');
 var s:=a.Where(x->x>c);
 if s.Count>0 then
 writeln('Среднее арифметическое элементов > ',c,' = ',s.Average)
 else writeln('В массиве нет искомых элементов');
end.

Пример:
8 2 22 16 24 34 29 16 1 26
c =  50
В массиве нет искомых элементов

2.
const n=10;
var a:array[1..n] of integer;
c,i,s,k:integer;
begin
Randomize;
for i:=1 to n do begin
 a[i]:=random(51);
 write(a[i],' ');
 end;
writeln;
write('c = ');
readln(c);
s:=0; k:=0;
for i:=1 to n do
 if a[i]>c then begin s:=s+a[i]; k:=k+1; end;
if k>0 then writeln('Среднее арифметическое элементов > ',c,' = ',s/k:5:2)
else writeln('В массиве нет искомых элементов');
end.

Пример:
39 38 43 25 45 16 16 12 35 16
c = 40
Среднее арифметическое элементов > 40 = 44.00
istok11
Microsoft Windows - семейство проприетарных операционных систем корпорации Microsoft, ориентированных на применение графического интерфейса при управлении. Изначально Windows была всего лишь графической настройкой для MS-DOS. По состоянию на август 2014 года под управлением операционных систем семейства Windows по данным ресурса Net Applications работает около 89% персональных компьютеров. Windows работает на платформах x86, x86-64, IA-64 и ARM. Существовали также версии для DEC Alpha, MIPS, PowerPC и SPARC.
Стародубцева_Васильевич485
Когда мы включаем компьютер, то видим картинку и всякие значки, кнопки, окошки и прочее. Вся эта красота, которую Вы видите и используете, возможна только благодаря операционной системе. При нее мы управляем компьютером, то есть делаем за ним все то, что делаем – работаем, отдыхаем, пользуемся Интернетом.

Операционная система — это самая важная программа. Без нее мы не смогли бы даже включить компьютер. То есть если бы ее не было, то при включении компьютера был бы только черный экран с разными непонятными буквами и цифрами.

Windows (Виндоуз) - это название операционной системы. Так сказать, ее марка. Как, например, марки автомобилей – Ауди, Фольксваген, БМВ и другие. Вот Windows – это одна из «марок» операционных систем компьютера.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Написать программу в паскале позволяющую найти среднее арифметическое элементов массива состоящего из 10 чисел которые превышают число c.
Ваше имя (никнейм)*
Email*
Комментарий*

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

Мирзоев Денис
vyborovvs
Vasilevich
dentalfamily
Test Станислав
Tatarnikova1507
Marinanagornyak
mishink535
алексей_Цуканов
Ирина
хуйдрочил_Анастасия
valeron7hair7
restkof
maltes
achernakov