Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
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)
print "массив а: "
print a(i);
print
print "массив b: "
print b(i);
print "массив c: "
print c(i);
print "сумма элементов массива с ="; s
program first;
var z,d,k: integer;
begin
writeln('input z,d,k');
readln(z,d,k);
if (d> =z) then
d: =d-z
k: =k+1
writeln(d,' ',k);
readln;
end.
Популярные вопросы