В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Neznаykа
Neznаykа
19.05.2022 08:10 •  Информатика

Откуда браузер "знает" как оформлять гиперссылки?

Показать ответ
Ответ:
Kotliarrostislav
Kotliarrostislav
17.06.2020 05:12
Uses crt;
const  n = 15;
var  i, imin, imax, m, min, max, j: integer;
  a: array[1..n]of integer;
begin 
Writeln('Введите числа в массив'); 
for i := 1 to n do   
readln(a[i]); 
for i := 1 to n do   
write(a[i], '   '); 
min := a[1]; 
max := a[1]; 
imin := 1;
imax := 1;  
for j := 1 to n do 
begin   
if(a[j] > max) then  
begin    
max := a[j];     
imax := j;   
end;   
if(a[j] < min) then   
begin     
min := a[j];     
imin := j;   
end; 
end; 
writeln(); 
writeln('индекс минимального элемента ', imin, ' индекс максимального элемента ', imax); 
m := abs(imin - imax); 
Writeln(); 
Writeln('Кол-во элементов между макс. и мин. элементами ', m - 1);
end.
0,0(0 оценок)
Ответ:
ololsha99
ololsha99
20.03.2020 19:00

program average;

const n=10;

var avg:real; //среднее ариф.

   count:integer;//кол-во чисел, превосходящих ср. ариф

   m:array[1..n] of integer; //массив из 10 целых чисел

   i:byte; //счетчик цикла

begin

count:=0; avg:=0;

writeln('Введите в строку 10 чисел');

 for i:=1 to n do begin

  read(m[i]);//считываем в цикле 10 чисел

  avg:=avg+m[i];//подсчитываем сумму элементов  

end;

avg:=avg/10;//вычисляем среднее ариф. значение

 

//перебираем массив в цикле

for i:=1 to n do

    if (m[i]>avg) then count:=count+1;//если элемент массива больше чем ср. ариф, то счетчик таких чисел увеличиваем на 1

 

//вывод на экран требуемого значения

writeln(count);

end.

Объяснение:

попробовал все разъяснить в комментариях к строкам кода

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота