Var A: Array of Integer;
N: Integer;
i: Integer;
sum: Integer;
Begin
Randomize;
Write('N = ');
ReadLn(N);
SetLength(A, N + 1);
WriteLn('Массив:');
For i := 1 To N Do
Begin
A[i] := Random(50) - 25;
Write(A[i] + ' ');
End;
WriteLn;
WriteLn('Без отрицательных:');
For i := 1 To N Do Begin
If A[i] >= 0 Then
Write(A[i] + ' ');
End;
sum := 0;
WriteLn;
WriteLn('Среднее арифметическое:');
For i := 1 To N Do Begin
sum := sum + A[i];
End;
WriteLn(sum / N);
<span>End.</span>
Во вложении на верхнем рисунке показана схема двумерного массива (матрицы), размером 100х100. Желтые кружки - элементы массива. Выделена главная диагональ матрицы (условие, когда номер строки равен номеру столбца), а треугольники с заливкой выделяют верхнюю и нижнюю треугольные матрицы. Если исходная матрица квадратная, то количество элементов в обоих треугольных матрицах одинаково.
На нижнем рисунке описывается заполнение элементов массива. Строки нижней треугольной матрицы заполняется номерами строки (зеленая область), а столбцы верхней треугольной матрицы - номерами столбцов с обратным знаком (красная область). При внимательном рассмотрении можно понять, что каждому элементу зеленой области будет сопоставлен элемент красной с таким же значением, но с противоположным знаком. Следовательно, сумма этих элементов будет равна нулю.
Осталось найти сумму элементов главной диагонали. Там будут элементы -1, -2, -3, ... -99, -100. Это сумма первых 100 чисел натурального ряда, образующих арифметическую прогрессию, взятая с противоположным знаком.
Ответ: -5050
"L1" - Название файла
".TXT" - расширение файла (создан в блокноте, текстовый формат)
"1 КБ" - объем файла
"<span>02.03.2007.18:00</span>" - Дата создания документа.
Для получения результата нажми кнопку "=".
Сюда вставить Ексель-документ не дает. Скинул сюда:https://yadi.sk/i/B5r_g24ubgZeF
Var a,b,x:integer;
begin
writeln('введите число x:');
readln(x);
writeln('введите интервал от a до b:');
readln(a,b);
if (x>=a) and (x<=b) then writeln('x принадлежит данному интервалу') else
writeln('x не принадлежит данному интервалу');
readln;
end.