Люди добрые, большая просьба с решением трех в паскале. 1. дан целочисленный массив из 30 элементов. элементы массива могут принимать целые значения от 0 до 1000. опишите на языке или на одном из языков программирования алгоритм, позволяющий найти среднее арифметическое нечётных трехзначных чисел, записанных в этом массива. если ни одного такого числа нет, нужно вывести сообщение об этом. исходные данные объявлены так, как показано ниже. запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из них. const n=30; var a: array [l..n] of integer; i, j, s: integer; begin for i: =l to n do readln(a[i]); end. 2.дан целочисленный массив из 40 элементов, все элементы которого – целые числа в интервале от -500 до 500. опишите на языке или на одном из языков программирования алгоритм, который находит среднее арифметическое всех положительных элементов массива, которые кратны первому элементу (делятся нацело на первый элемент гарантируется, что первый элемент массива положительный. исходные данные объявлены так, как показано ниже. запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из них. const n=40; var a: array [l..n] of integer; i, x, y: integer; s: real; begin for i: =l to n do readln(a[i]); end. 3. опишите на языке или одном из языков программирования алгоритм подсчета числа элементов, равных максимальному, в числовом массиве из 30 элементов.
Ответы
1const n=30; var a: array [1..n] of integer; i,j,s: integer; begin for i: =1 to n do readln(a[i]); for i: =1 to n do if (a[i]> 99)and(a[i]< 1000) then if (a[i] mod 2)< > 0 then begin s: =s+a[i]; j: =j+1; end; if j=0 then writeln('в массиве нет нечётных трехзначных чисел') else writeln('среднее арифметическое нечётных трехзначных чисел: ',s/j); end. 2 const n=40; var a: array [1..n] of integer; i,x,y: integer; s: real; begin for i: =1 to n do readln(a[i]); x: =abs(a[1]); for i: =1 to n do if (a[i]> 0)and((a[i] mod x)=0) then begin y: =y+1; s: =s+a[i]; end; if y=0 then writeln('в массиве нет нечётных трехзначных чисел') else writeln('среднее арифметическое положительных чисел кратных первому элементу: ',s/y); end. 3 const n=30; var a: array [1..n] of integer; i,s,m: integer; begin for i: =1 to n do readln(a[i]); m: =a[1]; for i: =2 to n do if a[i]> m then m: =a[i]; for i: =1 to n do if a[i]=m then s: =s+1; if s=1 then writeln('в массиве только один максимальный элемент') else writeln('число элементов, равных максимальному: ',s-1); end.
Если точка лежит внутри треугольника, то сумма площадей образованных ей треугольников равна площади данного треугольника. x1, y1, x2, y2, x3, y3 - координаты точек треугольника, x, y - координаты точки. найдем векторное произведение, которое равно удвоенной площади треугольника. исходный код: #include < iostream> using namespace std; int main() { int x1, y1, x2, y2, x3, y3, x, y; cin > > x1 > > y1 > > x2 > > y2 > > x3 > > y3 > > x > > y; if (abs((x1 - x) * (y2 - y) - (x2 - x) * (y1 - y)) + abs((x1 - x3) * (y - y3) - (x - x3) * (y1 - y3)) + abs((x - x3) * (y2 - y3) - (x2 - x3) * (y - y3)) == abs((x1 - x3) * (y2 - y3) - (x2 - x3) * (y1 - { cout < < "in"; } else { cout < < "out"; } return 0; }
{автор: рудницкий в. л. ограничения: последовательность не может быть длинее nn. откуда: олимпиада, kz, 2016.} const nn = 10000; var a : array [1 .. nn] of integer; i, j, d, n: integer; begin write('введите длину массива: '); readln(n); writeln('введите массив чисел через пробел: '); for i : = 1 to n do read( a[i] ); { удаляем повторы чисел } for i : = 1 to n-1 do for j : = i+1 to n do if a[i] = a[j] then a[j] : = 0; { создаем последовательность заполняя не нужные числа нулями } for i : = 2 to n do if ( a[i-1] > a[i] ) and ( a[i] < > 0 ) then a[i] : = 0; { суммируем не нулевые элементы } d : = 0; for i : = 1 to n do if a[i] < > 0 then d : = d + 1; writeln('максимальная длинна массива после удалений: ',d); end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
