Var a,k,i:integer; s:real; begin s:=0; k:=0; for i:=1 to 7 do begin readln(a); s:=s+a; if a>0 then inc(k);//<span>сколько раз в неделю температура была выше нуля </span>end; s:=s/7;//средняя температура. end.
{1. Заполните массив L [9] с клавиатуры числами 105, 126, 134, 176, 181, 193, 132, 144, 156 и ввести на экран } var L:array [1..9] of byte; n,i:byte; begin N:=9; {считываем с клавиатруры N чисел} writeln('введите масссив'); for i:=1 to n do read(L[i]); writeln; writeln('Массив:');
{вывод на экран массива} for i:=1 to n do write(L[i]:7);{7 позиций под число} end.
{2 . заполнить массив К [22] случайными числами в интервале от 2 до 42 и вывести его на экран.} var K:array [1..22] of byte; n,i:byte; begin N:=22; randomize; for i:=1 to n do k[i]:=2+random(41);{если включая [2,42]} writeln; writeln('Массив:');
{вывод на экран массива} for i:=1 to n do write(K[i]:7);{7 позиций под число} end.
Алгоритм перевода чисел из восьмеричной в десятичную систему счисления аналогичен уже рассматривавшемуся нами в разделе Перевод чисел из двоичной системы в десятичную. Различие состоит лишь в том, что для восьмеричной системы счисления основанием является число 8, а правило перевода в данном случае может быть сформулировано в следующем виде:
Для перевода восьмеричного числа в десятичное необходимо это число представить в виде суммы произведений степеней основания восьмеричной системы счисления на соответствующие цифры в разрядах восьмеричного числа.
Например, требуется перевести восьмеричное число 2357 в десятичное. В этом числе 4 цифры и 4 разряда ( разряды считаются, начиная с нулевого, которому соответствует младший бит). В соответствии с уже известным нам правилом представим его в виде суммы степеней с основанием 8:
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017 // Внимание! Если программа не работает, обновите версию!
Begin var n:= readlnInteger('n ='); var a:= ReadlnString.ToIntegers; SetLength(a, n); var k:= a.where(t -> (t>100)and(t mod 7 = 0)).Count; Writeln(k); end.