Первая программа:
program n1;
var a: array[1..10] of integer;
i,k:integer;
begin
for i:=1 to 10 do a[i]:=random(100);
K:=0;
For i:=1 to 10 doIf a [i]> 50 then k:=k+1;
Write ('k=', k);
end.
Вторая программа:
program n1;
var a: array[1..10] of integer;
i,s:integer;
begin
for i:=1 to 10 do a[i]:=random(100);
s:=0;
for i:=1 to 10 doif (a [i]>50) and (a [i]<60) then s:=s+a [i];
write ('s=', s);
end.
Ну, наверное, как то так это выглядит. Сам оформишь, как нужно
Ключ: интернет
<span>Трудно в учении, легко в бою</span>
9)вообще когда считал,получалось 128 бит,но увы там в ответе биты,значит самое оптимальное 64 бит,ответ Б
10) ответ 6,не буду расписывать,слишком долго,там из 25 вычитаешь 13 = 12 и из 12 по условию задачи бежишь