<h3>PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (a, b) := ReadInteger2('Введите границы диапазона a и b:');
var (s, n) := (0, 0);
for var x := a to b do
if x.IsOdd and (x mod 5 <> 0) then (s, n) := (s + x, n + 1);
Println(s / n)
end.
<h2>Пример</h2><h3>Введите границы диапазона a и b: 15 149</h3><h3>82.5185185185185 </h3>
В отличие от линейных алгоритмов, в которых команды выполняются последовательно одна за другой, в алгоритмическую структуру «ветвление» входит условие, в зависимости от выполнения или невыполнения которого реализуется та или иная последовательность команд (серия).
Int main()
{
int n=0,m=0;
cin>>n>>m;
int mas[n][m];
for (int i=0;i<n;i++)
{
for(int j=0;j<m;j++)
{
cin>>mas[i][j];
}
}
system("pause");
return 0;
}
На работоспособность не проверял но вроде-бы все верно))
// PascalABC.NET 3.3, сборка 1547 от 07.10.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrGen(10,i->2*(i+1)+1); a.Println
end.