<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrGen(ReadInteger('n='), i -> (i + 1) * 6);
a.Println;
Println('Среднее', a.Average)
end.
<h3>n= 13</h3><h3>6 12 18 24 30 36 42 48 54 60 66 72 78</h3><h3>Среднее 42 </h3>
var a: array [1..20] of integer;
i:integer;
begin
for i:=1 to 20 do
if i mod 2 = 0 then a[i] := 1 else a[i] := 0;
writeln (a)
end.
1-в,-г,3-б, но я не уверен, 4-110, возможно, а букву не могу сказать, потому что не видно, 5-а.
Это последовательность первых букв дней недели
Понедельник
Вторник
Среда
?
Пятница
Суббота
Воскресение
А пропущен конечно Четверг
Ответ: Ч
//PascalABC.NET 3.1 сборка 1239
begin
var a := ArrRandom(7, -50, 50);
a.Println;
Println(a.Count(x -> x mod 7 <> 0));
end.