1)дан массив м : 15, 17, 24, 18, 13, 28, 18, 95, 19, 17 что появиться на экране после выполнения фрагмента программы: z: =0; for k: =1 to 10 do if m[k] mod 2 < > 0 then z: =z+1; writeln(z); 2)дан массив м : 24, 7, 14, 8, 56, 12, 48, 25, 19, 17 что появиться на экране после выполнения фрагмента программы: s: =m[1]; for k: =2 to 10 do if m[k]> s then s: =m[k]; writeln(s);

1) 
z = 0
считаем количество нечётных элементов массива
15  (нечётное)   z = 1
17  (нечётное)   z = 2
24     (чётное)   z = 2
18      (чётное)   z = 2
13  (нечётное)   z = 3
28     (чётное)   z = 3
18      (чётное)   z = 3
95 (нечётное)   z = 4
19  (нечётное)   z = 5
17  (нечётное)   z = 6
ответ: 6

2) 
s = 24 (первому элементу массива)
сравниваем со следующими элементами массива, если элемент больше s присваиваем s значение большего элемента
7 > 24 (нет)
14 > 24 (нет)
8 > 24 (нет)
56 > 24 (да)     s = 56
12 > 56 (нет)
48 > 56 (нет)
25 > 56 (нет)
19 > 56 (нет)
17 > 56 (нет)
ответ: 56

вот. музыка, композитор Глинка:

1.    М. Глинки является композитором:
a)    Германии
b)    Италии
c)    России
2.    Какое утверждение о творчестве  М.И. Глинки верно:
a)    Композитор-романтик
b)    Основоположник русской музыки
c)    Входил в «могучую кучку»
3.    Время, в которое жил композитор:
a)    Во второй половине XIX в.
b)    В первой половине XIX в.
c)    В XVIII в.
4.    М.И. Глинки сочинял большое количество:
a)    Романсов
b)    Этюдов
c)    Опер
5.    Опера, написанная М.И. Глинкой:
a)    «Иван Сусанин»
b)    «Борис Годунов»
c)    «Евгений Онегин»
6.    В каком году написана эта опера композитором:
a)    1870
b)    1836
c)    1740
7.    Эта опера написана после поездки:
a)    Во Францию
b)    В Италию
c)    В Румынию
8.    Большая драматургическая роль в опере принадлежит:
a)    Хору
b)    Оркестру
c)    Дуэтам

1. С какой страной связаны образы и темы симфонических произведений Глинки «Арагонская хота» и «Ночь в Мадриде»? Испания
.
8  Имя учителя Глинки, немца по фамилии Ден. Зигфрид

 

program game;

var
costi, me, comp, myscore, compscore, round: integer;

begin
randomize;
costi := random(6);
myscore := 0;
compscore := 0;
for round := 1 to 10 do
begin
writeln('Введите ваще число от 1 до 6');
readln(me);
if me = costi then
writeln('Выпало число ', costi, '. Вы угадали, счет становится (', myscore + 1, ';', compscore,')')
else writeln('Выпало число ', costi, '. Вы не угадали, счет остается преждним (', myscore, ';', compscore,')');
if me = costi then myscore := myscore + 1;
writeln('Кости бросает компьютер');
costi := random(6);
comp := random(6);
if comp = costi then
writeln('Выпало число ', costi, '. Компьютер угадал, счет становится (', myscore, ';', compscore + 1,')')
else writeln('Выпало число ', costi, '. Компьютер не угадал, счет остается преждним (', myscore, ';', compscore,')');
if comp = costi then compscore := compscore + 1;
end;
if myscore>compscore then writeln ('Вы победили!');
if myscore<compscore then writeln ('Вы проиграли.');
if myscore=compscore then writeln ('Боевая ничья!');
end.