//дан целочисленный массив из 30 элементов. Элементы массива могут принимать значения от -10 до 20. //Составьте программу, которая подсчитывает и выводит среднюю температуру по всем дням, //когда были заморозки. Гарантируется, что хотя бы в один день были заморозки
var i,x,y : shortint; s : real; t : array [1..30] of shortint; begin randomize; For i:=1 to 30 do begin t[i]:=random (31)-10; //заполняем таблицу случайным образом (в диапазоне от -10 до 20) writeln (i,' ',t[i]); //строка не обязательная просто позволяет увидеть заполненный массив end; for i:=1 to 30 do begin if t[i]<0 then begin x:=x+t[i]; y:=y+1; end; end; s:=x/y; writeln ('Средняя температура по дням, когда были заморозки ',s:0:2); end.
procedure PrintArray(var a: array100); var i: integer; begin for i := 1 to n do write(a[i]:3, ' '); writeln; end;
begin randomize; for i := 1 to n do a[i] := random(99) - 50;
PrintArray(a);
repeat f := true; for i := 1 to n - 1 do if (a[i] < 0) and (a[i + 1] >= 0) then begin f := false; t := a[i]; a[i] := a[i + 1]; a[i + 1] := t; end; until f; PrintArray(a);
1. 1987/7=283 остаток 6
283/7=40 остаток 3
40/7=5 остаток 5
5/7=0 остаток 5
1987(10)=5536(7)
1010101011(2)=1*2^9 +0*2^8 +1*2^7 +0*2^6 +1*2^5 +0*2^4 +1*2^3 +0*2^2 +1*2^1 +1*2^0 =683(10)
Переведём 1AE из системы счисления 16 в десятичную систему счисления :
1AE(16)=1*16^2 +10*16^1 +14*16^0 =430(10 )
430(10)=x(9)
430/9=47 остаток 7
47/9=5 остаток 2
5/9=0 остаток 5
430(10)=527(9 )
1AE(16) =527(9)
2. 11011110(2) * 110(2)=10100110100(2)
11011110(2)=222(10) 110(2)=6(10)
10100110100(2)=1332(10)
1101111(2) - 110111(2) = 111000(2)
1101111(2)=111(10) 110111(2)=55(10)
111000(2)=56(10)
1011110101(2) + 1110111(2) = 1101101100(2)
1011110101(2)=757(10) 1110111(2)=119(10)
1101101100(2)=876(10)