Войти Регистрация Спроси ai-bota

Вычислить значение f по
одной из формул
х, х< 0
f=
4 - X, X> 0

Показать ответ

Ответ:

zeIenkrist

29.08.2020 12:57

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);

0,0(0 оценок)

Ответ:

btslove2

29.08.2020 12:57

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);

0,0(0 оценок)

Популярные вопросы: Информатика

egorhoyrovegiror

16.10.2022 03:26

с вопросами по IТ 1) При определении сетевых параметров рабочей станции средствами Windows XP и Windows 7 будут ли они иметь одинаковые значения? Если нет-то в чем будет разница?...

sunnyAkhhhh

02.02.2022 15:55

FOR…TO… DO какие операторы? a условное копирование b безусловное копирование d условная смена цикла c известное значение повторяющегося цикла...

mgvzvit2005

08.09.2022 21:49

Алгоритм вычисления функций F(n) и G(n) задан следующими соотношениями:F(1) = G(1) = 1 F(n) = 3-F(n-1) + G(n-1) n+5, если п 1 G(n) = F(n-1) + 3-G(n-1) - 3-п, если п 1 Чему...

сергейщепетинов

18.03.2022 06:40

Задание: написать программу, в которой шарик двигается по трубам. В трубе шарик должен исчезать. Цветовая гамма и расположение труб свободные. Критерии оценивания: снижается...

Bairachock

18.04.2020 20:59

Help!Составьте ПРОГРАММУ, которая выводит b3на 5 и выводит сумму элементов этой матрицы...

elitael

13.03.2021 22:02

Как изменить формат числа и его...

murvil228

25.03.2020 05:03

Информатика тест на ЯКласс...

инна1382

29.08.2020 05:22

Здравствуйте решить задания на рекурсивные алгоритмы. (задания прикреплены)...

XeyalVusal124

07.06.2023 23:22

1)Алина отправилась в магазин за покупками. Девушка купила пачку молока за 34 руб., две упаковки замороженных овощей, заплатив за каждую 120,94 руб. Три пачки 2 % творога,...

щотььллл

18.09.2021 09:23

Ребусты шеш 5 сынып информатика...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку