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.
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.
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.
Объяснение:
попробовал все разъяснить в комментариях к строкам кода