Составьте программу в среде КуМир для вычисления по приведённой ниже формуле
Ответы
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.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Определите значение:1) а = 32 //;102) b= 22 % 23) c = (123 % 100) II 10
Автор: batalerka391
1что такое электронный документ? 2 файл ? 3 имя файла? 3 расширение имени файла?
Автор: pelagia-kola2658
Как на языке программирования будет мужской пол
Автор: sport2293032
Нужно отправить в течение часа
Автор: kirieskamod262
Дана иерархическая система папок в опирационной системе виндовс запишите полные имена файлов
Автор: Ваган Шутова332
Составить алгоритм вычисления площади параллелограмма
Автор: Sokolova-Shcherbakov
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.