.(На бейсике даны массивы a(m) и b(m), m< =12 сформулировать массив с по правилу: c1=bm+a1 c2=bm-1+a2 cm=b1+am найти сумму s элементов массива с. вывести на печать массивы a, b,c и полученную сумму s..).
INPUT "a="; a INPUT "b="; b INPUT "c="; c IF c = 0 THEN IF b = 0 THEN PRINT "x=0" ELSE x1 = 0: x2 = -b / a PRINT "x1="; x1, "x2="; x2 END IF ELSE IF b = 0 THEN x1 = -c / a: x2 = -x1 PRINT "x1="; x1, "x2="; x2 ELSE D = b ^ 2 - 4 * a * c IF D < 0 THEN PRINT "Нет действительных корней" ELSE IF D = 0 THEN x = -b / (2 * a) PRINT "x="; x ELSE D = SQR(D) x1 = (-b - D) / (2 * a): x2 = (-b + D) / (2 * a) PRINT "x1="; x1, "x2="; x2 END IF END IF END IF END IF END
ИСПРАВЛЕНО --- Uses crt; {описание переменных} var a,b,c: array [1..20] of integer; x,sum:integer; begin sum:=0; {обнуляем сумму} for x:=1 to 20 do {включаем цикл ввода массивов} begin write('a[',x,']:'); {вывод текста на экран} readln(a[x]); {ввод массива А} write('b[',x,']:'); {вывод текста на экран} readln(b[x]); {ввод массива В} c[x]:=a[x]+b[x]; {формируем массив С} if x mod 2=0 then sum:=sum+c[x]; end; writeln; {переводим указатель на новую строку} for x:=1 to 20 do {цикл вывода массива С} writeln('c[',x,']:',c[x]); {вывод текста на экран} writeln('sum=',sum); {сумма четных элементов массива С} end. --- текст в фигурных скобках удалять не обязательно, он на код не влияет.
Dim A(12), B(12), C(12)
Input "Введите размерность массивов А и В - m= ", m
Print "Введите элементы массивов А и В:"
For i=1 to m
Input A(i), B(i)
Next i
s=0
For i = 1 to m
C(i)= A(i) + B(m-i+1)
s= s+C(i)
Next i
Print "Массив А:"
For i = 1 to m
Print A(i);
Next i
Print
Print "Массив B:"
For i = 1 to m
Print B(i);
Next i
Print
Print "Массив C:"
For i = 1 to m
Print C(i);
Next i
Print
Print "Сумма элементов массива С ="; s