Конечно же ответ 2. Система самодиагностики и сбора статистики
1)15:3=5(ел)полученного!
Ответ:5
3.
65
4.
110
Смотрите в приложении.
Код программы можно увидеть Alt+F11
<u>// PascalABC.NET </u>
<u>// Версия 3.3.5 сборка 1662 (29.04.2018)</u>
begin
var m := ReadArrInteger(10);
var (o, e) := (m.Where(t -> t.IsOdd).Count, m.Where(t -> t.IsEven).Count);
Println(o > e ? 'Нечетных больше' : o = e ? 'Поровну' : 'Четных больше');
end.
<u>Пример:</u>
1 2 3 4 5 6 7 8 10 10
Четных больше
Какая размерность массива? А вообще просто строишь цикл
for i:= 1 to N do
a[i]:= a[i] + 25;