<u>1. Вот так это нужно решать по-современному</u>
// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
begin
Writeln('k=',ArrRandom(15,1,20).Println.Count(x->x>10))
end.
<u><em>Тестовое решение</em></u>
4 16 14 9 11 18 17 14 14 15 1 1 9 10 15
k=9
<u>2. А вот так учат решать в школе...</u>
// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
var
a:array[1..15] of integer;
i,k:integer;
begin
Randomize;
k:=0;
for i:=1 to 15 do begin
a[i]:=Random(20)+1;
Write(a[i],' ');
if a[i]>10 then k:=k+1
end;
Writeln;
Writeln('k=',k)
end.
<u><em>Тестовое решение:</em></u>
18 15 7 6 3 3 10 6 6 15 2 16 16 2 12
k=6
Я думаю это ответ 3 но впринципе
Но мне надо написать ещё 20 символов чтобы отправить тебе этот ответ
4- неподойдёт , так как bmp является форматом хранения
Средняя температура в вашем регионе за последний месяц, <span>среднее число осадков, выпадающих в вашем регионе в течение года</span>
<span>а) Ученик отвечает у доски. </span>
<span>б) Боря читает статью в журнале. </span>
<span>в) Оля слушает песню по радио. </span>
<span>г) Гена говорит с мамой по телефону. </span>
<span>д) Водитель автобуса объявляет остановку.</span>
Ответ:
1. целые со знаком и целые без знака
2. мантисса и порядок