Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var a: array [1..10] of integer;
min,max,i,c,b: integer;
begin
read(c,b);
randomize;
for i : = 1 to 10 do
a[i]: = random(b) -c+1;
min: =1;
max: =1;
for i: = 1 to 10 do
if a[min]> a[i] then min: =i;
if a[max]< a[i] then max: =i;
end;
writeln(a[min], a[max]);
end.
16 - 2^4 - 4 бита = 0.5байт
256 - 2^8 - 8 бита = 1байт
128 - 2^7 - 7 бита
4 - 2^2 - 2 бита = 0.25байт
512*1024*8 = 4`194`304 бит
640*480 = 307`200 бит
4 - 6
16 - 3
128 - 1
256 - 1
var temp: array[1..31] of integer; k,i: integer;
beginfor i: =1 to 31 do readln(temp[i]);
for i: =1 to 31 do
if a[i]< 0 then inc(k);
writeln(k);
"доброе утро" в 7: 00"доброго дня" в 14: 00"доброго вечера" в 17: 00"спокойной ночи" в 21: 00
Популярные вопросы