Нужна помщь, если не понятен почерк, пишите в !
Ответы
Program example;
const
A=30;
Nmin:=-100; // минимальный параметр
Nmax:=100; //максимальный
var
flag_max : integer;
flag_min : integer;
i. jmin,jmax : integer; //счетчики
Randomize;
array max[A];
//заполняем случайніми числами диапозон -100 +100
for i=1 do A do begin max=:= Random (Nmin + 1) - 2 * Nmax; end;
//ищим максимальный элемент
for i=1 do A do begin if max>max[i+1] then begin flag_max:=max
jmax:=i; end; else begin flag_max:=max[i+1];
jmax:=i; end; end;
//минимальный элемент
for i=1 do A do begin if max>max[i+1] then begin flag_min:=max[i+1]
jmin:=i; end; else begin flag_min:=max; jmin:=i; end; end;
//подсчитываем сумму
for i=jmin do jmax-1 do begin max:=max[i+1] end;
//сумма чисел в рандовом массиве между макс и мин єлементом
write('сума',max);
const
A=30;
Nmin:=-100; // минимальный параметр
Nmax:=100; //максимальный
var
flag_max : integer;
flag_min : integer;
i. jmin,jmax : integer; //счетчики
Randomize;
array max[A];
//заполняем случайніми числами диапозон -100 +100
for i=1 do A do begin max=:= Random (Nmin + 1) - 2 * Nmax; end;
//ищим максимальный элемент
for i=1 do A do begin if max>max[i+1] then begin flag_max:=max
jmax:=i; end; else begin flag_max:=max[i+1];
jmax:=i; end; end;
//минимальный элемент
for i=1 do A do begin if max>max[i+1] then begin flag_min:=max[i+1]
jmin:=i; end; else begin flag_min:=max; jmin:=i; end; end;
//подсчитываем сумму
for i=jmin do jmax-1 do begin max:=max[i+1] end;
//сумма чисел в рандовом массиве между макс и мин єлементом
write('сума',max);
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Эльфы | гномы | орки в порядке возрастания
Автор: Amelin-Alipova
Какое основное назначение отладчика программы
Автор: shturman-765255
Составить ребусы на слова редактирование и форматирование
Автор: Emasterova77
Паскаль авс: написать программу вывод простых чисел, с массива.
Автор: Екатерина1979
I=6. While >=1print (i)i=i+1print ("Finished!")
Автор: chapaevval
Имя сжатого файла нужно, как он называется?
Автор: kristinagaspa62
Приведите жизненные примеры где алгоритм представлен в виде таблицы
Автор: shtankosoyuz1629
const
A=30;
Nmin:=-100; // минимальный параметр
Nmax:=100; //максимальный
var
flag_max : integer;
flag_min : integer;
i. jmin,jmax : integer; //счетчики
Randomize;
array max[A];
//заполняем случайніми числами диапозон -100 +100
for i=1 do A do begin max=:= Random (Nmin + 1) - 2 * Nmax; end;
//ищим максимальный элемент
for i=1 do A do begin if max>max[i+1] then begin flag_max:=max
jmax:=i; end; else begin flag_max:=max[i+1];
jmax:=i; end; end;
//минимальный элемент
for i=1 do A do begin if max>max[i+1] then begin flag_min:=max[i+1]
jmin:=i; end; else begin flag_min:=max; jmin:=i; end; end;
//подсчитываем сумму
for i=jmin do jmax-1 do begin max:=max[i+1] end;
//сумма чисел в рандовом массиве между макс и мин єлементом
write('сума',max);