Дана последовательность целых чисел, заканчивающаяся числом 0. требуется вывести на экран числа этой последовательности, которые были больше среднего арифметического. программе дается последовательность целых чисел. гарантируется, что объём входных данных не превышает 512 килобайт. все числа по модулю не превосходят 2^30.

👇

Ответ:

aninagalamova

09.10.2022

//PascalABC.Net 3.1 сборка 1200
uses System;
var
    n: longint;

begin
    var s := new List<longint>();
    repeat
        Readln(n);
        if n <> 0 then s.Add(n);
    until n = 0;

    Println(s);

    var av := s.Average;
    Println(s.Where(x -> x > av));
end.

4,4(77 оценок)

Открыть все ответы

Ответ:

gimnastikgirla

09.10.2022

//1)
Type
ty=array[1..25] of integer;

Var
n,i:integer;
ar:ty;

procedure sortbutmeh(var ar:ty;n:integer);
Var
i,j,c:integer;
begin
for i:=1 to n-1 do
for j:=i+1 to n do
if ar[i]<ar[j] then
begin
c:=ar[i];
ar[i]:=ar[j];
ar[j]:=c;
end;
end;

begin
randomize;
readln(n);
writeln('First array:');
for i:=1 to n do
begin
ar[i]:=random(100);
write(ar[i]:4);
end;
sortbutmeh(ar,n);
writeln;
writeln('Array after sortbutmeh()');
for i:=1 to n do
write(ar[i]:4);
end.

//2)
Var
n:integer;

procedure ned(n:integer);
begin
case n of
1:writeln('Понедельник');
2:writeln('Вторник');
3:writeln('Среда');
4:writeln('Четверг');
5:writeln('Пятница');
6:writeln('Суббота');
7:writeln('Воскресенье');
end;
end;

begin
readln(n);
ned(n);
end.

//3)
Var
s:string;

function lengthbutmeh(s:string):integer;
begin
while pos(' ',s)<>0 do
delete(s,pos(' ',s),1);
lengthbutmeh:=length(s);
end;

begin
readln(s);
writeln(lengthbutmeh(s));
end.

4,5(65 оценок)

Ответ:

kristina758

09.10.2022

Лишние словосочетание выделено жирным шрифтом :

а. Формирование у пользователей компьютера навыков грамотной постановки задач, возникающих в практической деятельности, для их решения с компьютера.

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

в. Формирование у пользователей компьютера навыков печати десятипалым методом.

г. Формирование у пользователей компьютера умения грамотно интерпретировать результаты решения практических задач с компьютеров и применять эти результаты в практической деятельности.

4,4(42 оценок)

Это интересно:

Компьютеры-и-электроника

24.01.2021

Как подтвердить аккаунт YouTube: подробное руководство для начинающих...

Образование-и-коммуникации

25.10.2020

Как подкислить почву: советы, рекомендации, идеи...

Дом-и-сад

28.09.2020

Как удалить кофейное пятно с шелка: лучшие способы...

Здоровье