Вот : дано: массивы а(10), в(10), с(10 сформировать массив d(10), каждый элемент которого есть максимальное значение соответствующих элементов а, в, с, т.е. di=max{ai, bi, ci}. нахождение максимального значения оформить в виде подпрограммы.а вот подпрограмма: procedure findmax(a, b, c: real; var d: real); begin if (a> b)and(a> c) then d: =a; if (ac) then d: =b; if (c> b)and(a

Аесли а=в будет? что сделает прога? ничего, ни одно условие не выполнится! и  на выходе d=0 выдаст. погоняй подольше свою прогу, чтобы выпали в столбцах одинаковые числа, увидишь. и лучше не "write(a[i],' '); " использовать, а write(a[i]: 4); . если так везде сделать, удобнее смотреть будет.

Вбейсике есть встроенная функция atn - арктангенс,поэтому угол можно в градусах посчитать.dim a, b, c, cs, cst, ang, piinput " a = ", ainput " b = ", binput " c = ", cprintpi = 3.141593cs = (b * b + c * c - a * a) / (2 * b * c)cst = csif cs < 0 then cst = sqr(1 - cs * cs)ang = atn(sqr(1 - cst * cst) / cst) * 360 / (2 * pi)if cs < 0 then ang = ang + 90print "угол a = ",print using "###.##"; angcs = (a * a + c * c - b * b) / (2 * a * c)cst = csif cs < 0 then cst = sqr(1 - cs * cs)ang = atn(sqr(1 - cst * cst) / cst) * 360 / (2 * pi)if cs < 0 then ang = ang + 90print "угол b = ",print using "###.##"; angcs = (a * a + b * b - c * c) / (2 * a * b)cst = csif cs < 0 then cst = sqr(1 - cs * cs)ang = atn(sqr(1 - cst * cst) / cst) * 360 / (2 * pi)if cs < 0 then ang = ang + 90print "угол c = ",print using "###.##"; angprint "выход - любая клавиша "doloop while inkey$ = ""

Немного теории. для того, чтобы избежать переполнения разрядной сетки, значение квадрата натурального числа не должно превышать максимального числа, представимого выбранным типом данных. в языке паскаль числа типа longint записываются в четырех байтах в дополнительном коде, т.е. максимальное значение числа не может превышать 2³¹-1. тогда максимальное натуральное число, квадрат которого мы можем вычислить, равно целой части от величины:   //pascalabc.net 3.0, сборка 1066 var   s: string;   i,n,lim,l: longint; begin   lim: =trunc(exp(15.5*ln(;   write('введите номер позиции: '); read(n);   i: =0; l: =0;   while (l< n) and (i< =lim) do begin       inc(i); str(i*i,s); l: =l+length(s);   end;   if i< =lim then writeln('искомая цифра- ',s[length(s)-l+n])   else writeln('решения в типе данных longint невозможно') end. тестовое решение: введите номер позиции: 4 искомая цифра- 1 введите номер позиции: 33 искомая цифра- 5