<span>// PascalABC.NET 3.3, сборка 1562 от 02.11.2017
</span>
var
a:array[1..1000000] of integer;
i, n, x, y, cnt : integer;
begin
writeln('Введите кол-во элементов массива');
readln(n);
writeln('Введите ', n, ' чисел');
for i:= 1 to n do read(a[i]);
Writeln('Введите промежуток от X до Y');
readln(x, y);
for i:= x to y do
if (a[i] < 0) then cnt:= cnt + 1;
Write('Отрицательных элементов: ', cnt);
end.
2.2
а) 2 б) 4 в) 0 г) нельзя делить на 0 д) 2 e) -2 ж) 2 з) 6 и) 0 к) 2 л) нельзя делить на 0 м) -2 н) -2 о) 2 п) 2
2.3
Можно получить числа 0, 1, 2, 3, 4
2.4
а) 40, 41, 42, 43, 44
б) 7
в) 43
г) 6, 12, 18, 24
д) 9
Нужно скачать и установить SeaMonkey И все получится.
Using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
namespace Brainly1
{
class Program
{
static void Main(string[] args)
{
bool Mistake = false;
int N = 0;
do
{
Console.Write("Введите количество слагаемых: ");
try
{
N = Convert.ToInt32(Console.ReadLine());
Mistake = false;
}
catch (FormatException)
{
Mistake = true;
Console.Clear();
Console.WriteLine("Неверный формат ввода! Повторите попытку!");
Console.WriteLine();
}
}
while (Mistake == true);
Sum(N);
}
static void Sum(int N)
{
double[] Elements = new double[N];
double Result = 0;
for (int i = 0; i < N; i++)
{
Console.WriteLine();
Console.Write("Введите " + (i + 1) + " число: ");
try
{
Elements[i] = Convert.ToDouble(Console.ReadLine());
}
catch (FormatException)
{
Console.WriteLine("Неверный формат ввода!");
}
}
for (int j = 0; j < N; j++)
{
Result += Elements[j];
}
Console.WriteLine();
Console.Write("Сумма = " + Result);
Console.ReadKey();
}
}
}