1)
<span>z = 0
</span><span>считаем количество нечётных элементов массива
</span>15 (нечётное) z = 1
<span>17 </span> (нечётное) z = 2
<span>24</span> (чётное) z = 2<span>
18</span> (чётное) z = 2<span>
13 </span> (нечётное) z = 3<span>
28</span> (чётное) z = 3<span>
18</span> (чётное) z = 3<span>
95</span> (нечётное) z = 4<span>
19 </span> (нечётное) z = 5<span>
17 </span> (нечётное) z = 6
<span>Ответ: 6
2)
</span><span>s = 24 (первому элементу массива)
сравниваем со следующими элементами массива, если элемент больше s присваиваем s значение большего элемента
7 > 24 (нет)
</span>14 > 24 (нет)
<span>8</span> > 24 (нет)<span>
56</span> > 24 (да) s = 56
12 > 56 (нет)<span>
48</span> > 56 (нет)<span>
25</span> > 56 (нет)<span>
19</span> > 56 (нет)<span>
17</span> > 56 (нет)
Ответ: 56
Ответ:
Интернет - изменил почти весь мир, без интернета как без рук
Смартфон - смартфон есть почти у каждого
Отсутствует раздел перемененных, в паскале нужно перечислять используемые переменные в самом начале программы
Var
n:integer;
begin
readln(n);
n:=n mod 7;
if n=1 then
writeln('Понедельник');
if n=2 then
writeln('Вторник');
if n=3 then
writeln('Среда');
if n=4 then
writeln('Четверг');
if n=5 then
writeln('Пятница');
if n=6 then
writeln('Суббота');
if n=7 then
writeln('Восресенье');
end.