1. дан одноименный массив а. определить среднее арифметическое положительных и четных элементов больших 6. 2. дан одноименный массив размером n. получить значение следующего выражения: макс*2/nмакс (удвоенное значение максимального элемента поделить на его порядковый номер).
128
275
Ответы на вопрос:
1) var n, i, c, sum, sum2, c2: integer; a: array of integer; begin sum : = 0; sum2 : = 0; c2 : = 0; c : = 0; readln(n); setlength(a, n); for i : = 0 to n - 1 do begin read(a[i]); if(a[i] > 0) and (a[i] > 6) then begin sum : = sum + a[i]; c : = c + 1; end; if(a[i] mod 2 = 0) and (a[i] > 6) then begin sum2 : = sum2 + a[i]; c2 : = c2 + 1; end; end; writeln(sum / c); write(sum2 / c2); end. 2) var n, i, max, im: integer; a: array of integer; begin im : = 1; readln(n); setlength(a, n); for i : = 0 to n - 1 do begin read(a[i]); if(i = 1) then max : = a[0]; if(a[i] > max) then begin max : = a[i]; im : = i + 1; end; end; write((max * 2) / im); end.
Мы имеем переводы слов "красный" и "машина".
Красный - Bbalgan
Машина - Keun
И того "bbalgan keun" - ответ.
===================
Если ответ удовлетворил, не забудь отметить его как "Лучший".
Популярно: Информатика
-
honeybeyker06.06.2020 13:39
-
anilop1523.04.2023 20:38
-
Учебник201722.09.2021 12:16
-
DashaP200607.10.2021 05:51
-
здравствуйте11202.12.2022 23:37
-
elizavetaelise120.11.2020 23:46
-
REIIKA15.11.2020 05:10
-
azazaka22016.01.2023 14:31
-
ladomix11.11.2022 10:40
-
guzhowa6617.03.2023 15:23