1. выберите все возможные варианты ответов. основные тыпы полей, испльзуемые в бд: 1.числовой 2.текстовой 3. логический 4 дата 5 поле мемо
219
341
Ответы на вопрос:
Const n = 100; var i, k_max, max, neg_max: integer; a: array[1..n] of integer; begin for i : = 1 to n do begin a[i] : = random(100) - 50; write(a[i], ' '); end; writeln(); max : = a[1]; k_max : = 1; neg_max : = 0; for i : = 1 to n do begin if a[i] > max then begin max : = a[i]; k_max : = 1; end; if a[i] = max then k_max : = k_max + 1; if (a[i] < 0) and (abs(a[i]) > abs(neg_max)) then neg_max : = a[i]; end; writeln('max: ', max, ' k=', k_max); writeln('positive: ', max); writeln('negative: ', neg_max); end.
Популярно: Информатика
-
kirilsex6927.07.2020 19:29
-
MrsVaderr05.07.2020 14:27
-
kolika201611.06.2021 04:22
-
mmila476410.12.2020 03:17
-
myka120.10.2022 01:13
-
Valya5555555505.04.2022 13:38
-
XxXKotikXxX08.07.2022 02:45
-
Aizek11122.01.2023 02:14
-
ksyushaivleva23.10.2020 13:36
-
Nastiakot130.09.2020 19:15