1 Дан массив А(10). Заменить все нечетные элементы массива на минимальное значение. вывести преобразованный массив. 2 Вести массив А(36). найти произведение первых пяти элементов массива, сумму остальных и частное от деления произведения и суммы. вывести все результаты.
1) при цикла найти минимальное значение. 2) записать значение минимума в отдельную переменную. 3) при цикла каждый элемент проверять на четность, если элемент четный, то тогда переходить к следующему, а если он не четный, то приравнивать его к переменной в которой записан минимум.
1) при цикла ограниченным до 5ого элемента включительно любую объявленную переменную и заранее приравненную к единице умножить поэлементно(при цикла) 2) начиная с 6 элемента и до конца при цикла сложить все элементы и записать эту сумму в отдельную объявленную переменную 3)записать в объявленную переменную выражение произведение/сумму. 4) вывести все переменные на экран.
Uses crt; var p,a,b,c,xa,xb,xc,ya,yb,yc,ab,ac,bc,xab,yab,xbc,ybc,xac,yac:real; s:real; begin writeln('Введите х координаты вершин а и b'); readln(xa,xb); writeln('Введите y координаты вершин а и b'); readln(ya,yb); xab:=xb-xa; yab:=yb-ya; ab:=sqrt(xab*xab+yab*yab); writeln('Введите х координаты вершин а и с'); readln(xa,xc); writeln('Введите y координаты вершин а и c'); readln(ya,yc); xac:=xc-xa; yac:=yc-ya; ac:=sqrt(xac*xac+yac*yac); writeln('Введите х координаты вершин b и с'); readln(xb,xc); writeln('Введите y координаты вершин b и c'); readln(yb,yc); xbc:=xc-xb; yab:=yc-yb; bc:=sqrt(xbc*xbc+ybc*ybc); p:=(ab+bc+ac)/ 2; s:=sqrt(p*(p-ab)*(p-bc)*(p-ac)); writeln(s); end.
Объяснение:
ьмьм